クラ フィック 機能 


▼ 1 S. 258 色の カラー グラ一 デーシ ヨン  ▼ 曰 万 向 スクロールの シュ一 ティング ゲーム 

SCREEN1 2 の丫 JK モード を 使った， カラ一 八 一 ドゥエ アスク ロールに よる ゲーム. 
表示. 1 9,26 曰 色 は 目に も 鮮やか/  撃って 撃って， 撃ちまくれ/  (本文 183 ページ) 


國 


^1 


： 絵 i: 律 人 p: 園 


ミュー シック 機能 


日本語 処理 機能 


簡易 漢字 エディ タ 
漢字が^ える テキス 卜 エディタ. 表示 文字 

数 も 自由に 変えられる. (本文 107 ページ) 


' JIS 第 2 水準 漢字一 K 表 
MSX2  + は JIS 第 2 水準の 難しい 漢字 も 
サポ 一卜して いるの だ/  ROM さえ あれば 
表示 は fK! 単. 


漢字 スケジュール 'メモ 
スケジュール 管理 はこれ で バッチ リ ノ 
約束の 人名， 地名 も 漢字で 入力. 
(本文 9 曰 ページ） 
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はじめに 


MSX 力 * 統一 仕様 ホーム パーソナル コンピュータ として 発表され て か ら， 
もう 5 年の 月日が 経とうと しています. この間 MSX は， 統 一仕様で ある, 
や， 手ごろな 価格が 評価され， 色々 な 場面で 活用され るよう になって きてい 
ます. 

しかし， この間の パソコンの 進歩 は めまぐるしく，  8 ビットの 時代から 16 
ビットの 時代へ と， 進んで いっています.  | 

そんなな かにあって， MSX は， パソコンと ゲーム 機の 中間の マシンと いう 
位置付け になって いるよ う な 気がします. この 理由の 1 つに は， MSX はい ま 
ま で 漢字 ROM が オプションだった こと や， 漢字 表示の 手順 力 滞 準 化が でき 
ていなかった ため， 日本語 対応の アプリ ケ一 ショ ン （いわゆる 実用 ソフ ト とい 
われる もの） が あまり 発売され ていなかった ことがあ げられ るで しょ う. 

今回 発表され た MSX2+ では， 漢字 ROM (第一 水準） の 標準化 や， 漢字 処理 
機能が 新設され， 日本語 処理に も 十分 対応で きる ようになりました. ダラ 
フィ ック も， いままで 高級 機種で なければ 表示で きなかった 1 万 9 千 色 同時 
表示に なり， より 自 然 画に 近い 表示が でき るよう になって います. 

そして， ほとんどの MSX2+ 力、'， ディスク ドライブ 付きで， ワープロ 機能 
を 標準 装備して おり， なおかつ， 6 万円 台と いう 低価格で 発売され ています. 
し 力、 し， 低価格と いっても， 速度 さえ 気にしなければ， 16 ビットの パソコン 
に はでき て， MSX に はでき ない こと は ほとんどありません. これ は， MSX 
が 基本的な パーソナル コンピュータの 機能 を 備えて いるから こそでき る こと 
だとい えます. 

今回の MSX2+ への ステップ アップに よって， 色 数 も 漢字 処理に おいて 
も， 他の 8 ビット パソコンに 負けない ものと なり， 本当の 意味での ホ一 ムコ 
ン ピュー タ となった といえる でしよ う. 

本窨 では， MSX2  + で 拡張され た 機能の 解説 や 活用 法 を 紹介して いきます. 
みなさんの MSX2 + 活用の 手 助 け になれば 幸い です. 

著者し るす 
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本書の 構成 

本書 は MSX2+ の 拡張され た 機能に ついて 解説 するとと もに， その 機能 を 
具体的に 活用した プログラム を 紹介して います. 

本書 は 4 部 + Appendix という 構成に なって お り ， 2 部 以降 は MSX2  + で 
拡張 さ れた 機能 ご と に 分け られ てい ま す. 

さらに， 各部 は それぞれ 3 つの 章から なって います. 1 章 目 は そこで 扱う 機 
能に 関する 基礎的な 知識， 2 章 目 は その 機能 を 制御す るた めに 用意され た 
BASIC コ マン ドの リファレンス， そして 3 章 目 は その 機能 を 使う 際の 注意 
点と 具体的な 活用 サンプル プログラム を 紹介して います. 

以下に， 各部の 具体的な 内容 を 示します. 

園 プロフィール 

MSX2+ と 従来の MSX2 と では ど こ が 違 うの か？ どんな 機能が 加 わった 
のか？ などの 疑問に 答える のが この 部の 目的です. ここで は， MSX2  + の 胃 
を かいつまんで 紹介して います. 

國 グラフィック 櫬能 

MSX2+ の 最大の 特徴で あ る グラフ イツ ク 機能， と く に 最大 19,268 色 同時 
表示 可能な 新 しい スクリーンモード を 中心に 紹介 していき ます. 1， 2 章で は， 
新しい スクリーン モー ドで 使用され る グラフ ィ ック データ 方式の YJK と， 
これまでの RGB 方式との 違い， 新しい VDP を 搭載した ことによ り 拡張され 
た MSX- BASICVer.3.0 の コマンド など を 解説し ます. 3 章で は， 拡張され 
た VDP の レジスタ について 触れた のち， 活用 サンプルと して レイ ト レー シ 
ングと グラフ ィ ック エディ タの プログラム を 紹介して います. 

■ 日本^ QiM 機能 

MSX が これまで 苦手と していた 漢字の 処理 を 可能に した MSX 漢字 ドラ 
ィバ について 紹介して いきます. 1， 2 章で は， MSX における 日本語の 表現の 
仕組み と 漢字 ドライ バの 役割， 漢字 ドライ バ 拡張 BASIC の コマンド など を 
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本書のお 成 

解説し ます. 3 章で は 漢字 ドライ バ 起動時の 注意点 を あ げ， 活用 サ ン プル と に 
て 漢字 スケジュール メモと 漢字 テキス ト エディ タの プログラム を 紹介して い 
ます. 

國 ミュージック 機能  | 

MSX2+ と 同時に 発表され た FM 音源の 規格で ある MSX-MUSIC につ 
いて 紹介して いきます. 1， 2 章で は， FM 音源 そのものの 仕組みと， MSX 
-MUSIC 拡張 BASIC のコ マン ド について 解説して ます. 3 章で は FM 音源 
用 IC である OPLL の 各 レジスタ について 触れた のち， 活用 サンプルと して 
FM 音色 エディ タと FM 音源 キー ボ一 ドの プログラム を 紹介して います. 

■  Appendix 

Appendix 1 では， グラフ イツ ク 機能で 説明で きなかった ハー ドゥエ アスク 
ロールに ついて， 8 方向 スクロールの ゲーム を 紹介しながら 解説して います. 

Appendix  2 に は， マシン 語で プログラム 組まれる 方の ために， MSX 漢字 
ドライ バ と MSX-MUSIC の 拡張 BIOS をリ ファレン ス 形式で 掲載 してい ま 
す. 

本書で 使用した システム 機器 構成 

本体 ：MSX2+  (ディスク ドライブ， MSX- MUSIC 対応 FM 音源 内蔵） 
周辺機器 ： RGB 対応 力 ラー CRT 


グラフ ィ ック 機能の 3 章で 紹介す る レイ ト レー シン グ プログラム では， 
「MSX ベ一 しつ く ん」 を 使う と 計算 時間 を 短縮す る ことができます. ただし， 
この場合に は， 計算 精度の 問題から 画質が 落ちる ことがあります. 

ミュージック 機能の ところで 紹介す る プログラム は， すべて MSX 
-MUSIC 対応の FM 音源が 必要です. 内蔵され ていない 機種 をお 持ちの 方 
は， 別売の MSX- MUSIC 対応の FM 音源 カート リッジ を スロットに 差して 
ご 利用く ださい. 

Appendix の 8 方向 ス ク ロール' シ ユー ティ ン グゲ一 ムは プロ グラム 容^: 
が 大きい ので， 2 ドライブの マシンで は 正し く 動作 C ない ことがあり ます. そ 
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本 S の猶 


の 場合 は， リセ ッ ト して CTRL キー を 押しながら 起動して ください. 

なお， 本書 は MSX2  + の 拡張され た 機能 ゃコ マン ドに について のみ 触れて 
おります. したがって， 従来の MSX2 と 互換の ある 部分に つきましては， 弊 
社 既刊の 「MSX2  BASIC 入門」 をお 読みく ださい. 


 アスキー • ディスク アルバムの お知らせ  

本書で 紹介した プログラム は r アスキー • ディスク アルバム |3」 と 

し て 発売中です. MSX2  + を 活用す る プログラム の 数々 をす ぐに ご 
利用いた だけます. ぜひとも ご 利用 く ださ い. 

アスキー ディスク アルバム 13    MSX2+ パワフル 活用 法 
MSX2+ 版 3.5 インチ 2DD 
価格 3,500 円 送料 400 円 

(表示 価格に は 消費税 は 含まれて お り ません） 
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ブ MSXS+ の パワフル 機能 

画 誕生 MSX2+ 

パーソナルコンピュータの 世界 はめ ま ぐるし く 移り変わって きています. 
是非 は 別 としても， 現在の 新製品が 3 か 月 後に は 型 遅れと い う 事態が 当 り 前 
の 世の中に なって いる こと は 事実です. いまや， パーソナルコンピュータで 
性能 は 急激に 向上し， 処理 速度の 高速 化 はもち ろん のこと， 鮮やかな ダラ 
フィック 表示 能力， 使いやすい 日本語 処理 能力， リアルな サウンド 処理 能力 
など， 目 を 見張る ものが あります.  | 

1985 年 春 以来， その 仕様 を贯 いてき た ホーム パーソナル コン ピュ一 少 
MSX2 も 時流に 合わせて マ イナ一 チェンジ 力、 It されました. それが MSX2|f 
(プラ ス） です. MSX か ら MSX2 へと 発展して きた MSX 規格です が， 3 回目 
の モデルチェンジ では MSX3 と はならず， MSX2+ となって います. 十と は， 
当然 十な の 意味で あ り ， MSX2 に 新たな 機能が 付け足された という こと は容 
易に 想像で きます. しかし， 付け足された 機能 は 本当にな なのです が， それ 
によつ て ユーザーが 受ける 恩恵 は たいへん 大き な ものです. 

固 MSX2+ の システム 構成 

MSX2 から MSX2+ への バー ジョ ン アップの 目玉 は， なんとい つても 19, 
268 色の 色 を 同時 表示で きる， YJK 方式の 画面 表示 機能で しょ う. YJK 方^ 
の 詳細に ついては 次 草で 解説し ますが， この 機能 は 新しい VDP (ビデオ デ I 
ス プレイ. プロセッサ ： 画像 表示 処理 LSI) によって 実現され ています. 

さ らに 漢字 処理 機能が 標準化され， 誰に でも 簡単に 漢字 を 扱った プロ グラ 
ムを 使う ことができる ようになって います.  ^ 

これ は， MSX 漢字 ドライバ という システム ソフト ウェアに よって 実現 
れ ています. この 漢字 ドライバ は， MSX2  + では 標準 装備と なって います. 

漢字 ドライバ は， MSX-D0S2 の カート リ ッジ にも 内蔵され ています し | 
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プロフィール 


MSX-JE 規格の 漢字変換 フ ロン ト プロセッサと 漢字 ドライ バを 組み合わせ 
た カー ト リ ッ ジも 発売され ています ので， これらの カー ト リ ッ ジを スロッ ト 
に 差す ことによって， MSX2 でも 漢字 ドライバ を 使う ことができます. この 
ように， MSX2，  MSX2+ ともに， 統一され た 漢字 入出力の ための 環境 を 作る 
ことができます. 

また， MSX2+ は， MSX,  MSX2 との 互換性 を 完全に 保った まま， バ一ジ ョ 
ン アップされ ています. ですから， MSX,  MSX2 用に 作られた プログラム は 
すべて MSX2+ 上で 実行す る ことができ ます. 

それで は， MSX2  + で 変更に なった 仕様に ついて 詳しく 見て いく ことにし 
ましよ う. 


項 目 

IVIOA 

Kile  vo 量 

CPU/ 速度 

Z80/3.58MHZ 

メインメモリ 容 ffi(RAM) 

8KB— 64KB 

64KB〜4MB 

システム プ[] グラム 容量 (ROM) 

32KB(MSX  BASIC  \fer1.0) 

48KB(MSX  BASIC  \fer2.0) 

96KB(MSX  BASIC 

DOS プログラム 容 ffi(ROM) 

16KB 

48KB(DOS2) 

お 

画 
面 

ビデオ メモリ 容 t(VRAM) 

16KB 

128KB 

g 大麵職 度 (祛ズ 接） 

256X192 

512X424 

表 

最大 同時 表示 色 数 

16 色 

256 色 

19,268 色 

槻 
能 

縱 スクロール 機能 

なし 

あり 

横 スクロール 機能 

なし 

なし 

あり 

オーディオ 機能 

PSG 

PSG 

MSX-AUDIO (オプション) 

MSX-MUSIC (オプション) 

曰 
本 

澳字 表示 ROM 

オプション 

J ほ 第 1 水準 標準 

睜 
処 
理 

澳字 表示 槻能 

アプリケーション による 

最大 40 字 X  24 行 

澳字 入力 機能 

アプリケーション による 

«> 

単漢 変換 標準 ，MSX-JE 対応 

通 

RS-232C 

オプション 

<= 

m 

m 

モデム (300/1 200BPS) 

オプション 

<= 

表 1.1 MSX2+ 機能 比較 表 
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1 MSX2+ の パワフル 機能 


園 八 一 ドウ エア 

MSX2 では VRAM (画像 メモリ） は 最低 64K バイ トぁ れば よかった ので 
す 力、'， 近年の メモリ 価格 低下で， 128K バイトの メモリ 力、' 本体 価格に 影 翻す る 
こと はなく なりました. そこで， MSX2+ では 画像 メモリの 大きさ は， 標準で 
128K バイ ト 固定に なって います. メインメモリの 显 は， MSX2 と 変わって お 
らず， 64K バイ ト 以上 搭載され ています. 

ま た， JIS 第一 水準 漢字 ROM 力、' 標準 装備に なりました. 

その他の 周辺機器との インタ一 フェイス に関して は MSX2 と 同じです. 

園 新しい グラフィック 機能  | 

MSX2+ では， 新しい VDP の 採用に より， これまでの MSX2 に比べて^ 
のよう な 機能が 追加 されて います. 

今までと 同じ 容量の 画像 メモリで， 表現で きる 色 数 を 増やした， YJK 方式 
による 自然 画 表示 モードが 追加され ています. この YJK 方式の 利用で， 19， 
268 色 または 12,499 色 を 同時 発色す る こと がで きます. 

MSX2 では 垂直 方向の ハ一 ドゥエ アスク ロールが 可能でした 力、'， MSX2+ 
では 垂直 方向に 加えて， 1 ドット 単位で 水平 方向に ハー ドウ ヱ アスク ロール 
がで きる ようになって います. したがって， これから は 横 スクロール タイプ 
の ゲーム を 簡単に 作る こ と がで き ます. 

ま た， 今まで は， ビット マ ッ プモ一 ド （グラフィック モー ド） でのみ 実行 可 
能だった， VDP コマ ン ド 力つ すべての スクリーン モードに おいて 使える よう 
になり ました. 

そ の 他， インタ一 フェイスに 関し て 細かい 機能の 拡張が な されて います. 

園 MSX-BASIC  Ver.3.0 

MSX-BASIC は， MSX-BASIC  Ver.2.0 の 上位互換性 を 保ちつつ， グラ 
フィ ック 処理に 関する 拡張が なされ， Ver.3.0 となって います. 

VDP の 変更に 伴い， BASIC か ら VDP の 新 機能で あ る YJK 方式の 画 巧 表 
示 ゃドッ ト 単位の 横 スクロール を 制御で きる ようにし ています. 

YJK モード 用の グラフ ィ ック 画面と して， SCREEN10~12 まで 力、' 新設 さ 
れ ています. それに 伴い， Y.IK モードに 対する グラフィック コマンド や， 


13 


プロフィール 

BASE 関数， VDP 関数の 拡張が 行われて います. 

縦 スクロールと 横 スクロール を BASIC から 制御す るコ マン ドも 新設され 
ています. 

騸 MSX 漢字 ドライ 八 * 

MSX 漢字 ドライバ を システム に 組み込む ことによって， BIOS を 使用して 
文字 を 入出力し ている プログラム ならば， 変更な しで 漢字 入出力が 可能に な 
ります. したがって， BASIC はもち ろん， MSX- DOS 上で も 漢字の 入出力が 
可能です. また， JIS 第 1， 第 2 水準の 漢字 を サポートし ています. 

システムに 仮想 端末 入力 インタ一 フェイス （MSX-JE) が 存在 すれば， その 
漢字変換 プロ セッサ を 使って 漢字の 入力 を 行う ことができます. もし MSX 
-JE が 存在 し ない 場合で も， 漢字 ドライ バに 内蔵され ている 単漢字 変換 機能 
によって， 漢字の 入力が 可能です. 

漢字 プリ ンタ への 出力 も サボ一 ト してい ますから， 漢字の メ ッ セージ を 含 
んだ プログラムの リスト を 打ち出したり， 漢字の メッセージ を プリンタに プ 
リントす る ことができます. グラフィック 画面に 対しても， LOCATE 文， 
PRINT 文 等 で 漢字の メッセージ を 出力で きます. 

さらに BASIC 上で 全角 半角の 混ざつ た 文字列 を 正し く 処理す るた めの コ 
マン ドを 拡張 BASIC の 形で 用意して います. 

園 MSX-MUSIC (オプション） 

FM 音源 を 使った サウンド 機能です. メロ ディ 音 9 音， あるいは， メロ ディ 
音 6 音 + リ ズム 5 音 を 発音す る こ と がで き ます. MSX-MUSIC を 使えば， 簡 
単に ゲームの 効果音 や BGM を 作る こと がで き ます. 

MSX-MUSIC 拡張 BASIC では， PLAY 文 と MML  (ミュージック マクロ 
ランゲージ） で， FM 音源 9 音 +  PSG 音源 3 音， あるいは， FM 音源 6 音 + リ 
ズム音 +PSG 音源 3 音 を 同時に 鳴らす ことができます. 

この 規格 は 基本的に は オプションです. もし 内蔵され ていなくても， 松 下 
電器から 発売され てい る， r パナ 'ァ ミ ユー ズメ ン ト. カー ト リ ッジ （FM 
- PAC)」 を 使えば MSX-MUSIC と して 使う ことができ ます. 
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fM§X2+ で 拡張され た 
グラフィック 機能  


MSX2 から MSX2+ への 最も 大きな 変更 点 は VDP です. ここで は， 新し 
い VDP，  V9958 により 飛躍的に 向上した グラフ ィ ック 処理 機能に ついて 解 
説して いきます. 

■ スクリーンモードの 追加 

MSX2  + で は， 新 た に SCREEN10 か ら SCREEN12 までの 3 つの ス^ 
リーン モード が 追加 されて います. これ は 新しい VDP の 機能 を 使った 自 + 
画 表示 モー ドで， と く に SCREEN12 では 最大 19,268 色 同時 表示が 可能と 
なって います. 

國 謹 八 一 ドゥエ アスク ロール 

MSX2 では， ハー ドウ エアで サ ポー ト される 画面の スクロール は 縦 方向の 
みでした. した 力、' つて， 画面 を 横 方向に スクロールさせる ために は， すべて 
プログラムで 行わなければ なりません. し 力、 し， MSX2+ では， 縦 方向に 加え 
て 横 方向の スク ロール も ハー ドウ ヱァ' レベルで サポート している ため， 
BASIC のコ マン ド 1 つで， ドッ ト 単位の 横 スクロール も 高速に 行う ことが 
できます. 

この 機能に よ り， いままで は 横 スクロールの ゲームと いえば SCREEN2 を 
使った ものでした 力、'， これから は， SCREEN5 以上の モードで も 簡単に 横ス 
クロールさせる ことができる ことになります. 

W 従来の 画像 データ処理 方式 

MSX2 の VRAM を 128K バイ ト 搭載した モデルで は， 最大 256 色 同時 + 
示が 可能でした. ところ 力つ MSX2  + では VRAM を 同じ 128K バイ ト しか^ 
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載して いない にもかかわらず， 19,268 色と いう 膨大な 色 数 を 同時に 表示す る 
ことができます. これ は， 新しい 画面 モ一 ド での 画像 データの VRAM への 格 
納 方式が， 従来の MSX2 の 方式と はまった く 異なって おり， メモリ を. 効率よ 
く 使用して いるた めです. 

ここで， MSX2 と MSX2+ の 画像 データの 処理の 違いに ついて 見て いく こ 
とに しましょう. 

固 RGB 方式 

普通， コンピュータで 色の 情報 を极 うに は， 表示す る 画像 を Red (赤)， 
Green (緑)， Blue (青) に 分解して， その 割合 を 数値と して 扱います. この R, 
G，  B の 値 を 画素 ごとに， そのまま VRAM 上に 格納して しまう の 力、' 最も一 般 
的な 画像 データの 格納 方式です. SCREEN8 もこの 方法 を 採用して います. 

この 方式で は， R，  G，  B それぞれの 割合 を 細かく していけば たく さんの 色 
を 表現して いく ことができる わけです が， そのために は 当然 大容显 の メモリ 
が 必要に なり ます. 
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図 2.1 画素 ごとの RGB データの 格納 
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1 MSX2+ で拡 おされた グラフィック 機能 

VRAM を 効率よ く 使う 方法と して は， パ レツ ト を 使う 方法が 一般的で， こ 
れは MSX の SCREEN7 でも 使って います. 絵 を 描く ときの パ レツ ト と 同 t 
ように， 色の データ を 蓄えて おくと ころ を 作り， そこに 番号 を 振り， この ノ |、° 
レットに RGB の 3 つの 値 を 与えて 色 を 決めます. VRAM にはパ レツ トの番 
号 を 書いて おいて， 表示す る ときに VRAM に 書かれた 番号に 対応す るパ 
レットに 設定され た 色 を 出力し ます. この 方法 だと， パレット 側の 分解能 を 
上げる だけで 表示で きる 色 数が 増える わけです. しかし， 一度に 表示で きる 
色はパ レツ トの数 だけな ので， パ レツ トの数 を 増やせば 必然的に VRAM 容 
S を 大き く しなければ ならなくなります. 

しかし， 大容 a の メモリ を 搭載 すれば， そこに データ を甞き 込んで いる 
CPU の 負担が 増えて 処理が 遅 くな つてし まったり， メモリ 分の コ ス ト がか 
かってし まう ため， MSX では あまりよ い 方法と はいえ ません. 

そこで， VRAM の 容量 を 増やさずに， 表示で きる 色 数 を 増やす ために， 
MSX2+ では， YJK 方式と いう データ 形式 を 採用して います. これ は， 従+ 
の 方法と は 異なり， RGB の データ を 圧縮し， データ 量 を 少なく して VRA]\ll 
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CXX3Q 


各 ドッ卜 
の データ 


VRAM 


パ レツ ト 
番号 


] r パ レツ ト 1 


0 

R, 

G, 

B, 

R2 

G2 

B2 

2 

R3 

G3 

B3 

3 

R4 

G« 

B« 
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ト 番号の み を 持つ. パ レツ トの 


図 2.2 パレット を 使った カラー グラフィック 表示 
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に 蓄えて おき， 表示す る ときに 圧縮され た データ を もとの RGB に 戻して 表 
示す る 方法です. 

この YJK 方式 は， テレビ放送 などに も 使われて いる NTSC ビデオ 方式と 
深い関係が あります. そこで， YJK 方式の 説明に はいる まえに， NTSC につ 
いて 簡単に 触れて おき ましよ う. 

■ ビデオ 信号の 圧縮 

現在の テ レ ビ 放送 は 白黒 テレビで も 受像す る ことができます. これ はテレ 
ビが 白黒から カラ ^発展す る 段階で， 送信す る 信号に 互換性 を 持たせた た 
めです. 

白黒 テレビの 画像 は， 光の 明るさ だけが 変化し ます. ですから， 白黒 テレ 
ビ しかなかった 時代の テ レ ビ 放送 は， 光の 明 る さ （輝度と いい ま す） の 信号 を 
斷象 信号と して 送って いました. 

ところ 力、'， カラ一 テレビカメラ では， レンズから はいって きた 光 を， フィ 
ルター を 使って RGB の 3 原色に 分割し， それぞれの 光 を 3 つの 撮影 管で 撮 
影して 3 種類の！ ^象 信号 (RGB) を 作り出します. 受像機 側 も ， RGB それぞれ 
の データ を 受け取って， それら を 合成して カラー 画像 を 再現し ます. した 力、' つ 
て， 本来なら ば RGB の データ を そのまま 側 象 信号と して 送れば よいので す 
が， そうすると 輝度 情報が 3 つの データに 分けられて しまうた め， 白黒 テレ 
ビ では 受像で きな く なって しまいます. 

そこで， 白黒 テレビで も カラー テレビで も 受像で きる ように 考え出された 
のが， NTSC 方式と 呼ばれる データ 形式です. 

國 NTSC 方式 

RGB の 3 つの 信号から R の 30%,  G の 59%，  B の 11% を 取り出して 合成 
すると， ちょうど 白黒 テレビカメラと 同じ 感度 特性の 信号が 得られます. こ 
れを 輝度 信号 (Y という） として 使います. 

カラ一 テレビの 場合， さらに 色に 関する 情報が 必要です. そこで， 輝度 (Y) 
情報に 加え， 色相 や 彩度 (飽和 度） といった 色の 情報 を， 各 RGB 信号から 輝度 
(Y) を 引く ことにより 求めます （これ を 色 差 信号と 呼びます). 
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1 MSXS+ で 拡張され た グラフィック 機能 

Y  =  0.30R  +  0.59G  +  0.11B 
R  -  Y  =  0.70R  -  0.59G  -  0.11B 
B  -  Y  =  -0.30R  -  0.59G  +  0.89B 
G  -  Y  =  -0.30R  +  0.41G  -  0.11B 

このな かで G-Y に関して は， その他の 式から 導き出せ るので， 最終的に は 
G-Y を 除いた 3 つ を 使って 色 を 表現し ます. R- Y,  B-Y のこと を 色 差 信号と 
いいます. 

人間の 目 は， 色に 対しての 分解能 は あまりよ くありません. ある 程度 細， 
くなる と， その 色 を 識別す る ことができ なくなって しまいます. したがって， I 
ある 面稅 以下に 色 を 付けても 意味が ありません. そこで， NTSC では 比較的 
面積の 大きい ところに だけ 色が 付く ように 色 差 信号 を 操作し， 情報量 を 少な 
く しています. 

こう してで きた 3 つの 信号 を， お 互いに 影響し ないよう に加え 合わせて， 
1 つの 信号と して 送信し ます. これらの 信号 を 受け取る ことにより， 白黒 テ u| 
ビは 輝度 信号で， カラ一 テレ ビは 輝度 信号 + 色 差 信号で それぞれ 画像 を 再現 
する ことができます. 


fe^  輝度 


NTSC 信号 


R  G 


カラー 


■ — i 


図 2.3   NTSC 方式での 送倌 


t,  一 
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W YJK 方式に よる 画像 データ処理 

MSX2  + の 画像 データ処理 法で ある YJK 方式と は， NTSC 方式 を まねて， 
色 を 輝度 信号と 色 差 信号に 分け， さらに 色の 付く 面稅を 制限して 情報 S を少 
なくして， 輝度 情報 は 1 ピクセル ごとに， 色情 報で ある 色相， 彩度 (飽和 度） 
の 情報 は 4 ピクセル ごとに 設定で きる ようにした ものです. 

画 YJK 方式での VRAM 上の データ 形式 

YJK 方式で は， RGB を 輝度と 色相， 彩度 (飽和 度） に 分けて， その データ を 
VRAM 上に 置き， 表示 するとき に RGB に 変換して 出力す る 方法 をと つてい 
ます. また， 情報量 を 少なく する ために， 輝度 は 1 ドット ごとに 設定で きる 
の です が， 色情 報に 関して は 4 ピクセル ごとに しか 設定で きないよう になつ 
ています. 

RGB から YJK への 変換 は 下の 式の ようになって います. 

Y  =  |B  +  |R  +  |(3 
J  =  R  -  Y 
K  =  G  -  Y 

この 式から， Y は 輝度 情報， JK は 色 差 情報に なって いる ことが わかり ま 
す. Y を 生成す る 式の 係数 は， デジタルでの 計算の しゃす さと， 実際の 表示 
での 発色の よしあし を考瓛 して 決められた ものです. 


22 
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実際に は， SCREEN8 と 同じ 解像度の モード （256X212 ドッ トで 1 ドット 
あたり 8 ビッ トの 情報 を 持つ モー ド） で， 横 4 ドッ ト を 1 組と して 色 を 表現 l| 
ます. SCREEN12 の YJK モードの とき， 実際の VRAM 上の データの 内容 
は 下図の よ う になって います. 
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Yn は 横 4 ドッ ト中 n 番目の ドッ 卜の 輝度 

KL は K の 下位 3 ビッ ト， KH は K の 上位 3 ビッ ト 

JL,  JH についても 同様 

Y のとる fig の 範囲 は 0 から 31 まで， JK のと る 値 は 符号 付き で， 
それぞれ  一 32 から 31 まで 


図 2.4   YJK モード 時の VRAM 上の データ 


V9958 では， YJK それぞれの 値 を VDP 内部で 下の よ う な 操作 を して 
RGB 出力して います. 

R  =  Y  +  J 
G  =  Y  +  K 

b  =  1y-|j-|k 

圃面 上に 表示され る 4 ドッ トの RGB データ は 次のように 計算され ます. 
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R  =  Y,  + J 
G  =  Y,  +  K 

B=fY'-TJ-iK 


R  =  Yj+ J 
G  =  Y2  +  K 

B=|"Y2-i-j-|K 
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G  =  Y3  +  K 
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R  =  Y4  + J 
G  =  Y«  +  K 

b=|y4-|j-|k 
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図 2.5 横 4 ドッ 卜の データ 


この ことから， Y (輝度） は， 1 ドッ ト ごとに 独立して 設定す る ことができる 
ことが わかる と 思います. 

YJK モードで 出力で きる 色の 数 は， 19,268 色と なって います. し 力、 し， こ 
の 数 は YJK の 値の 範囲から 考える と 異常に 小さい 数字です. 理論的には， 
131,072 色 発色で き る はずです. こ れは， VDP が 計算 結果 を 5 ビット で 処理 
している ことと， VDP が デジタルで 計算して いるので， 余り を 切り捨て てし 
まう ことから 起きる ようです. 
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この 方式の 最大の 長所 は， 今までと 同じ 情報量で， より 多くの 色 を 扱える 
という こ とでし よ う. 

しかし， 色の 情報が 4 ドット ごとに しか 付けられない ことから， なめらか 
に 色が 変ィ 匕す る もの はきれ いに 表現で きます が， 色の 変化が 激しい もの， I た 
とえば 1 ドッ ト ごとに 色 力  <  大きく 変わる もの や 幾何学 的な 胃な ど をき れい 
に 表示す る こと はでき ません. このため 自然 画な どに 向いた， 自然 画 モード 
などと 呼んで います. し 力、 し， 実際に は， 気になる ほど 色の 境目が 目 だっこ 
と はない よ う です. 

画 ァ卜リ ビュー 卜 混在の YJK モード 

上記の YJK 方式で は， 4 ドット ごとに 色が 付く ために， グラフィックス を 
表示す る 場合 はよ いの です が， 文字な ど を一 緒に 表示す るの は 難しくな り^ 
す. 

そこで， Y データの 長さ を 1 ビッ ト 減ら して， その 1 ビッ トをァ トリ ビュ厂 
ト ビッ ト と して 設定し， その ビッ トの 状態に よ り， ドッ ト ごとに RGB で 色 |§ 
定が できる モー ドを 用意して います. 

具体的に は， アトリビュート ビット 力、' 1 の 場合 は， Y の 4 ビット を パレ ッ 
ト コー ド として 极ぃ， パ レツ トに 設定した RGB の データに 基づき， 色 を 表示 
しています. ァ ト リ ビュー ト ビッ トが 0 の 場合 は， Y を そのまま YJK のデー 
タ として 色 を 表示し ます. 

こうす る ことによって， 1 ドット 単位で YJK モードと RGB モード を 共存 
させる ことができる ようになります. したがって， YJK の 4 ドッ トの 境界 を 
気にする ことなく 漢字 や キャラクタ一 を 表示で きます. また， LINE や CIR- 
CLE 命令 も 実行す る ことができ ま す. 

こめ モー ドをァ トリ ビュート 混在の YJK モー ドと 呼び， SCREEN10 と 11 
が これに 当たります. また， これに 対して SCREEN12 のとき の モード を アト 
リ ビュート なし YJK モ一 ド あるいは たんに YJK モー ドと 呼んで います. 

ァ ト リ ビュート 混在 モー ド での VRAM 上の データの 形式 を 図 2.6 に 示し 
ます. 

ァ ト リ ビュート 混在 YJK 方式から RGB への 変換 も 基本的に は 同じで， Y 
は 輝度， JK は 色 差 情報に あた り ます. 
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4 

3 

2 1 0 

く〉 

Y, 

A, 

K し 

^> 

Y2 

A2 

KH 

^> 

Y, 

A3 

J し 

^> 

Y« 

A4 

JH 

• 具体例 

厂 YJK デー^ 

^JL^ による 表示 

翁 〇〇• 

i  * 


MSB 


6  5  4  3   2   1  0 


LSB 


-RGB データ （パ レツ 卜） 

に 《K  ^>^7J\ 


パ レツ ト 番号 

1 

K し 

Y2 

0 

KH 

Y3 

0 

J し 

パ レツ ト 番号 

1 

JH 

An は 横 4 ドッ ト中 n 番目の ドッ トのァ ト リ ビュー ト 
Yn は An 力 <0 のとき n 番目の ドッ 卜の YJK データ を 表 
わし， An が 1 のとき パレット 番号 を 表わす. 


図 2.6 アト リ ビュー ト 混在の YJK モー ド 時の VRAM 上の データ 
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MSX-BASIC  Version3.0 

VDP 関連 

ML コマンド リファレンス 

MSX-BASIC  Version  3.0 で， Version  2.0 から 変更の あ つた コマンドと， 
新設され た コマンド について， コマンド ごとに 解説して いきます. 変更され 
た コマンド も， その ほとんどが 新 VDP の 機能に 関する ものです. また， 新設 
された コ マン ドは， スクロール に関する もの 1 つ だけです. 

以下に 変更 '新設され たコ マン ドを あげてお きます.  | 

SCREEN 
BASE 

SET  SCROLL 
PUT   KAN  J I 
VDP 


* 書式 *    SCREEN  [く 画面 モード〉] [， くス プライ ト サイズ〉] 

[， く キー クリック スィッチ〉] [， く カセット ポー レート〉] 
[， く プリン 夕 オプション〉] [， く インター レース モード〉] 

MSX2 の SCREEN  1~SCREEN8 に加えて， YJK モー ド 用の 10~12 ま で 
力、' 使えます. SCREEN9 は 海外 仕様との 関係 上， 欠番に なって います. く 画面 
モー ド〉 以外の スィ ツチ は BASIC  Ver.2.0 と 同じです (表 2.1). 


27 


グラフィック 機能 


新設され た 各 モー ドの 意味 を 解説し ます. 


モー ド 

スクリーン 形式 

ドット または 文^ a 

间時 表示 色 

0 

テキス ト 

80(40)  X  24 文字 

512 色 中 2 色 

1 

テキス ト 

32X24 文字 

512 色 中 16 色 

2 

高^^ グラフィック 

256X192 ドッ ト 

512 色 中 16 色 

3 

^グラフ ィ ック 

64X48 ドッ ト 

512 色 中 16 色 

4 

高 JS^Jf グラフ ィ ック 

256X192 ドッ ト 

512 色 中 16 色 

C 

o 

c  V  r  "^ッ ノ フフ ノイツ ク 

256X21 く トツ ト 

51 2 色 中 16 色 

6 

ビッ ト マップ グラフィック 

512X212 ドッ ト 

512 色 中 4 色 

ビッ ト マップ グラフィック 

512X212 ドッ ト 

512 色 中 16 色 

8 

ヒッ トマ ッブ グラフィック 

256X212 ドッ ト 

256 色 

10 

ァ トリ ビュー ト ig^YJK 

256X212 ドッ ト 

12,499 色 

11 

アトリビュート il^YJK 

256X212 ドッ ト 

12,499 色 

12 

アトリビュート なし YJK モード 

256X212 ドッ ト 

19,268 色 

♦  SCREEN 9 は 使われて い ません, 


表 2.1 MSX2+ の 画面 モー ドー 莨 

SCREEN 10( ァ ト リ ビュー ト 混在の YJK モー ド） 

アト リ ビュート 混在の YJK モード を 選択し ます. この モードで 指定で き 
る 色コ一 ドの 範囲 は 0 〜： 15 までです. 

LINE 文 や PAINT 文 等の グラフ ィ ック 描画の 際の 処理 は， どんな ロジカ 
ルォ ペレ一 ショ ンを 指定した かによ り 動作が 違います. 以下の ように 変わり 
ます. 

①  ロジカル ォ ペレ一 ショ ンが PSET または 省略され た 場合 

PSET や LINE 文 を 使って 描画す る 場合に は， 対象と なる 画素 （1 バイ ト） 
のァ ト リ ビュー ト ビット がセ ット され， 上位の 4 ビット 力、' 指定され た 色コ一 
ド となります. この場合， 指定した 色 コード は パレット コードと して 解釈 さ 
れ ます. 

②  ロ ジ 力 ル オペ レーシ ヨンに PSET 以外が 指定され た 場合 

指定され た 色コー ドを 左に 4 ビッ ト シフ ト した 値と， 対象と なる 画素との 
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あいだで 指定され た ロジカル オペレーション 力、' 実行され ます. この場合， 指 
定 した 色コ一 ドは， ァ ト リ ビュー ト ビッ ト がセッ ト されて いる 画素に 対して 
はパ レツ ト コー ド として， ァ ト リ ビュー ト ビッ トカ 《セッ ト されて いない 画素 

に対して は， Y 成分と して 指定して いる ことになります. 

SCREEN11 (ァ ト リ ビュー ト 混在の YJK モー ド） 

アト リ ビュート 混在の YJK モード を 選択し ます. この モードで 指定で きる 
色コー ドの 範囲 は 0 から 255 までです. SCREEN10 と 違い， 描画の 際に 指定 
された 色コ一 ドは そのまま 指定され た 画素の データと して 演算され ます. 

SCREEN12( 完全 YJK モー ド） 

アト リ ビュート なしの YJK モード を 選択し ます. この モードで 指定で 
る 色コー ドの 範囲 は 0 から 255 までです. 描画の 際に 指定され た 色コー ドは， 
そのまま 指定され た 画素の データと して 演算され ます. 

従来の SCREEN 文で は， スクリーン モー ドが 変わる たびに 表示 を 初期化 
し ました 力、'， SCREEN10, 11， 12 の 間での 遷移で は 表 2.2 のようになります. 


匕され な t 鄉 

SCREEN 10 から SCREEN 11 
SCREE 謂から SCREEN 12 
SCREEN 11 から SCREEN 10 
SCREEN1 1 から SCREEN 12 


aSb!»<«J^|; されず 7" トリ ビ 
ユート ビットが 0 になる^ 

SCREEN12 から SCREEN10 
SCREEN12 から SCREEN11 


表 2.2   SCREEN10-12 での スク リーン モー ドの 変更に 伴う 状態 遷移 
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リスト 2.1 SCREEEN12 で カラー' グラ デシ ヨーン を 表示 


リス ト 2.2   SCREEN10 の LINE 命令での ロジカル オペレーションの 実行 


100  SCREEN 12 
110  J=-32 

120     FOR  YA=0  TO 191 STEP  64 


130  FOR  XA=0  TO  7 

140  YD=YA 

150  FOR  K=-32  TO  31 

160  XD=XA*32 

170  FOR  Y=0  TO  31 STEP  4 

180  PSET(XD+0,YD).(Y+0)*8+(K  AND  7) 

190  PSET(XD+l,YD),(Y+l)x8+(K  AND  56)/8 

200  PSET(XD+2,YD),(Y+2)*8+(J  AND  7) 

210  PSET(XD+3.YD),(Y+3)«8+(J  AND  56)/8 

220  XD=XD+4 

230  NEXT  Y 

240  YD=YD+1 

250  NEXT  K 

260  J=J+1 


100  SCREEN  12:CLS 
110  FOR  Y=0  TO  31 STEP  3 
YD=0:CLS 
FOR  1=0  TO  2 
FOR  K=-32  TO  31 
XD=0 

FOR  J=-32  TO  31 
PSET(XD+0.YD),(Y 
PSEKXD+l.YD), 
PSET(XD+2,YD), 
PSET(XD+3,YD), 
XD=XD+4 
NEXT  J 
YD=YD+I 
240       NEXT  K 
250     NEXT  I 

260     IF  INKEY$=B"  THEN  260 
270  NEXT  Y 
280  END 


I)*8+(K  AND  7) 

(Y+I)*8+(K  AND  56)/8 

(Y+I)*8+(J  AND  7) 

(Y+I)*8+(J  AND  56)/8 


0  0  0  0  0  0  0  0  0  0  0  0 

234567890123 
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270       NEXT  XA 
280     NEXT  YA 
290  SCREEN 10 
300  C=0 

310  FOR  Y=0  TO  211 STEP  32 

320     FOR  X=0  TO  255  STEP  32 

330       LINE  (X,Y)-(X+15,Y+15),C,BF.PSET 

340       LINE  (X+16. Y+16)-(X+31. Y+31), C, BF, PSET 

350       C=C+l:lF  C=16  THEN  C=0 

360     NEXT  X 

370  NEXT  Y 

380  C=15 

390  FOR  Y=0  TO  211 STEP  64 

400     FOR  X=0  TO  255  STEP  64 

410       LINE  (X,Y)-(X+31,Y+31),C,BF,0R 

420       LINE  (X+32, Y+32)-(X+63, Y+63) , C. BF, OR 

430       C=C-l:lF  C=-l  THEN  C=15 

440     NEXT  X 

450  NEXT  Y 

460  IF  INKEY$=""  THEN  460 


BASE 


* 書式き BASE (く 数式〉） 

画面 出力に 関連す る テーブル (VRAM 上の テーブル） の 先頭 ァ ドレス を 求 
めます. 

〈数式〉 で 指定され た VRAM 上の アドレス を 出します. 指定で き る 数値 は， 
0 から 44 および 50 から 64 までです. く 数式〉 と 各 画面 モー ドの テーブル は 表 
2.3 のように 対応して います. 45 から 49 を 指定す る こと はでき ません. 

たとえば， SCREEN8 のス プライ トァ トリ ビュート 'テーブルの 先頭 ァ ド 
レス を 求める に は 次の よ う に 指定し ます. 

PRINT  BASE(43) 

表 2.3 に， BASE コ マン ドで 指定す る 数式と 各 画面 モードの テーブルの!^ 
応を 示して おきます. 
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7" 一  フル 

0 

0 

ノ 、'ターン ネーム • テー 70 レ 

1 

0 

カラ一 テーブル 

2 

0 

ノ 、'ターン ジ エネ L ^一 タ • テーブル 

n 
u 

ス ノフ 1 r  )  p  7 じ ユー r  ♦  丁 一 フ ノレ 

A 

n 
u 

•7  ~f= ！ ズ k  、、う T       I  -ー々 . ― —fa 

ノス "1 1* ンェ个 レーヌ •  7" —ノ  ノレ 

5 

] 

パターン ネーム • テーブル 

6 

カラー テーブル 

1 

パターン ジェネレータ • テーブル 

8 

1 

ス プライ トァ トリ ビュー ト • テーブル 

9 

ス ブライ ト • ジェネレータ • テーブル 

10 

2 

パターン ネーム • テーブル 

11 

2 

カラー テープ リレ 

12 

2 

ノ< ターン ジェネレータ • テーブル 

43 

8 

ス プライ トァ トリ ビュー ト • テーブル 

44 

8 

ス ブライ ト ジェネレータ 'テーブル 

45-49 

さ 

50 

10 

ノ、 • ターン ネーム • テープ リレ 

51 

10 

カラー テープ リレ 

52 

10 

パターン ジェネレータ . テーブル 

53 

10 

ス プライ トァ トリ ビュー ト • テーブル 

54 

10 

ス プライ トジ エネ L « — タ 'テーブル 

55 

11 

パターン ネーム • テーブル 

56 

11 

カラー テーブル 

57 

11 

パターン ジェネレータ • テーブル 

63 

12 

ス プライ トァ トリ ビュート . テーブル 

64 

12 

ス プライ ト ジェネレータ 'テーブル 

表 2,3   BASE コ マン ド での 指定と 各 画面 モー ドの テーブル 
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 SET  SCROLL  [ 

* 遨式 *    SET   SCROLL  [<X>]  [，  <Y>]  [，  <MASK>] 
[, <2PAGE>] 

表示 画面 を 水平 方向お よび 垂直 方向に スクロール します. <X〉，  <Y> に， 
式 を 指定す る ことにより， それぞれ 水平 方向， 垂直 方向の スクロール 量 を 指 
定 します. く X〉 のとる 値の 範囲 は 0 から 511， <Y> のとる 値の 範囲 は 0 から 
255 ま でです. 

SCREEN  1-4,  SCREEN8-12 では 水平 方向に 1 ドット 単位で， また 
SCREEN6,  7 では 水平 方向に 2 ドット 単位で ス クロール します. 

く MASK> は 表示 画面の 左端 8 ドット （SCREEN6,  7 では 16 ドット） を ボ一 
ダ 一色で 隠す か ど う か を 数式で 指定 します. 〈MASK> が 0 のとき は 隠さず， 
1 のとき は 隠します. 8 の 倍数 ドット 単位で スクロールさせる 場合 以外 は マ や 
クし たほうが 美しく 見えます. 

<2PAGE> は 水平 ス ク ロール をした と き に， 表示 内容の 左端お よび 右端に 
どのべ 一 ジ を 表示す る か を 数式で 指定 します. 

<2PAGE> が 0 ならば， 水平 スクロール をした と きに その ページ 内で 表示 
が ラップし ます. つまり， 画面の 左端に 消えて いった 画面が そのまま 右端 か 
ら 表示され てきます. 

<2PAGE> が 1 ならば， 2 ページ 連続の 水平 スクロールになります. つま 
り， ページ 0 の 画面が 画面の 左端に 消えて い く と 同時に， 右端から ページ 1 の 
画面が 表示され てきます， また， このと き は 表示 ページ を SET  PAGE ス 
テート メント により 奇数 ページに する 必要が あ ります. 

SCREEN0 の 画面で は， SET  SCROLL の 動作が 異なります. 水平 スク 
ロール は く X〉 の 下位 3 ビットの みが 有効と なります. く X〉 力、' 1 のとき は 7 
ドット， 2 のとき は 6 ドット， 3 のとき は 5 ドット， …… ， 7 のとき は 1 ド' ネ 
ト それぞれ 左に スクロール します. 7 ドッ ト 以上 は スクロール しません. 

垂直 ス クロール も 同様で 〈Y> の 下位 3 ビット のみが 有効 となります. く 
が 1 のとき は 1 ドット， 2 のとき は 2 ドット， 3 のとき は 3 ドット， …… ， 7 
のと き は 7 ドッ ト それぞれ 上に スクロール します. 7 ドッ ト 以上 はス クロ一 
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ル しません. また， このと き 表示され ている 文字の 位置 自体 は 変更され てお 
らず， 文字の フォントの 表示 開始 ラスタが 変わって いきます. 

スクロールさせる というの は， VRAM 内の 走査 開始 ァ ドレス を ずらす だ 
け です. つまり 画面に 表示され る 位置が 変わ る だけ で， X Y 座標 も 一緒に 移動 
していき ますので， プログラム を 組む 際に は 注意が 必要です. 

また， スクロールさせる ことによって， スプ ライトの 表示 位置 も 調整が 必 
要になります. Y 方向への スクロール では， スプ ライトの 位置 も 移動して し 
まいます. X 方向への スクロール では， スプ ライトの ディスプレイ 上での 位 
置 は 変わりません. 

SCREEN8 や SCREEN7 の 場合， 256  x  256 ま た は 512  x  256 フ ルに 垂直 ス 
クロールさせる とすると， 64K バイ ト フルに 画像 データ 領域と して 使用し な 
ければ なりません. SCREEN8 は， 1 バイ ト 1 ドッ トで 256X256X1 バイ ト= 
64K バイ ト， SCREEN7 では， 512X256X0.5 バイ ト =64K バイ ト となって， 
1 ページ 分の VRAM をす ベて 使わなければ ならない ため， ス プライ ト アト 
リ ビュート テーブル などの ス プライ ト用テ 一ブル を 取る 場所が なく なって し 
まいます. ス プライ トを 使用す る 場合 は 注意が 必要です. 


リスト 2.3 水平 Z 垂直 ス クロールと スプラ ィ ト の 表示 


100  SCREEN  5， 2: SET  PAGE  0,0:CLS 
110  FOR  YD=0  TO  255 
120     FOR  XD=0  TO 127 

130       C=INT(RND(1)*16):VP0KE  YD*128+XD,C*16+C 
140     NEXT  XD 
150  NEXT  YD 

160  SET  PAGE  1.1： SCREEN  ,2:CLS:SPRITE$(0)=STRING$(32,CHR$(&HFF)) 

170  1=0: FOR  Y=l TO  4： FOR  X=l TO  4 

180  PUT  SPRITE  I,(32*X,32xY),8,0:l=I+l 

190  NEXT  X:NEXT  Y 

200  A=VDP( 12) ： B=VDP(5) ： C=VDP(6) 

210  SET  PAGE  0,0 

220  VDP(12)=A:VDP(5)=B:VDP(6)=C 

230  T=STICK(0) 

240  X=X-(T>1  AND  T<5)+(T>5  AND  T<9) 
250  IF  X>511  THEN  X=0 
260  IF  X<0  THEN  X=511 

270  Y=Y-(T>3  AND  T<7)+((T=1  OR  T=2)0R  T=8) 
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280  IF  Y>255  THEN  Y=0 
290  IF  Y<0  THEN  Y=255 
300  SET  SCROLL  X.Y.l 
310  GOTO  230 


リスト 2,4   SCREEN 12 での 2 画面 スクロール 


100  SCREEN  12 

110  J=-32 

120  FOR  1=0  TO 1 

SET  PAGE  I.lrCLS 
FOR  YA=0  TO  255  STEP  64 
FOR  XA=0  TO  7 
YD=YA 

FOR  K=-32  TO  31 
XD=XA*32 

FOR  Y=0  TO  31 STEP  4 
VPOKE  (YD*256)+XD+0,(Y+0)*8+(K  AND  7) 
VPOKE  (Y0*256)+X0+1,(Y+1)*8+(K  AND  56)/8 
VPOKE  (YD*256)+XD+2.(Y+2)x8+(J  AND  7) 
VPOKE  (YD*256)+XD+3,(Y+3)x8+(J  AND  56)/8 


NEXT  Y 
YD=YD+1 
NEXT  K 
J=J+1 
NEXT  XA 
NEXT  YA 
310  NEXT  I 

320  IF  INKEY$=""  THEN  330 
330  SET  PAGE 1,0 

340  VDP(9)=VDP(9)  OR  &B00000010:N=1 
350  T=STICK(0) 

360  X=X-(T>1  AND  T<5)*M+(T>5  AND  T<9)«H 
370  IF  X>511  THEN  X=0 
380  IF  X<0  THEN  X=511 

390  Y=Y-(T>3  AND  T<7)xH+((T=l  OR  T=2)0R  T=8)*H 
400  IF  Y>255  THEN  Y=0 
410  IF  Y<0  THEN  Y=255 
420  SET  SCROLL  X.Y.0.1 
430  GOTO  350 


0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0 

345678901234567890 

111111122222222223 
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リ ス ト 2.5 画面 左端 8 ドット の マスク 


左 8 ドッ トを マスクした 場合 

100  SCREEN  5:CLS 

110  FOR  X=0  TO  255  STEP 16 

120     LINE  (X.0)-(X+15,211).X/16,BF 

130  NEXT  X 

140  FOR  X=0  TO  255 

150     SET  SCROLL  X, 0,1,0 

160     FOR  1=1 TO  300： NEXT  I 

170  NEXT  X 

180  GOTO 140 

左 8 ドプ トを マスクし なかった 埸合 

100  SCREEN  5ICLS 

110  FOR  X=0  TO  255  STEP 16 

120     LINE  (X.0)-(X+15,211),X/16.BF 

130  NEXT  X 

140  FOR  X=0  TO  255 

150     SET  SCROLL  X. 0,0.0 

160     FOR  1=1 TO  300： NEXT  I 

170  NEXT  X 

180  GOTO 140 


PUT  KANJI 


* 害 式 *    PUT   KANJI  [(く X>，  <Y»],  く 漢字 コード〉 

[， く カラー コード〉] [, く ロジカル オペレーション〉] 
[， く モード〉] 

SCREEN5 から SCREEN12 で 漢字 を 表示し ます. 

漢字 コード が jis 第 2 水準 ま で 指定 できる ようになって います. ただし， 
表示す るた めに は， JIS 第 2 水準 ROM が 必要と な り ます. そのほか は， Ver- 
sion 2.0 と 同じ です. 
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リスト 2.6 第 2 水準 漢字 表 を 作る 


E  VDP 閱連 コマンド リファレンス 


100  '第二 水準 澳字を 表示す る 
110  SCREEN  7,,,.,3:SET  PAGE 1.0 
120  OPEN  "GRP:"  FOR  OUTPUT  AS  ftl 
130  K=&H50 

140  SET  PAGE  1,0:CLS 
150  SET  PAGE  1,1:CLS 
160  FOR  1=0  TO  2 
170  Y=64*I 

180     PRESET  (40,Y):SET  PAGE 1.0 
190     PRINT  81."0123456789ABCDEF" 
PRESET  (40, Y): SET  PAGE  1,1 
PRINT  0123456789ABCDEF" 
FOR  KL=2  TO  7 
PRESET  (0,Y+(8*(KL-1))):SET  PAGE 1.0 
PRINT  81,HEX$((K+I)*256+KU16) 
PRESET  (0,Y+(8x(KL-l))):SET  PAGE 1.1 
PRINT  81,HEX$((K+I)*256+KL*16) 
FOR  X=0  TO 15 
SET  PAGE 1,0 

PUT  KANJ I (40+16*X, Y+(8*(KL- 1))).(K+I )*256+KL* I6+X.I5..I 
SET  PAGE 1,1 

PUT  KANJI(40+16*X.Y+(8*(KL-1))).(K+I) «256+KL* 16+X.I5..2 
NEXT  X 
330     NEXT  KL 
340  NEXT  I 

350  IF  INKEY$=B"  THEN  350 
360  K=K+3:lF  K<>&H74  THEN 140 
370  END 


0  0  0  0  0  0  0  0  0  0  0  0  0 

0123456789012 

2222222222333 
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VDP 


* 書式 參 VDP  (く レジスタ 番号〉） 

VDP の レジス タ へデ一 タを 書き込んだり， レジスタから データ を 読み だし 
たりし ます. 

この 命令 は， V9958 で 増設され た レジスタに 対応して います. 新設され た 
レジスタ は 25 から 28 です. 新設 レ ジ スタの 機能に ついての 詳 しい こと は 次 
の 節て * ^説し ます. 

指定で き るく レジスタ 番号〉 は- 9 から- 1, 0 から 28 および 33 から 47 です. 
-9 から- 1 が それぞれ VDP の ステータス レジスタ 9 から 1 へ， 0 から 7 がレ 
ジス タ 0 から 7 へ， 8 が ステータス レジスタ 0 へ， 9 から 28 が レジスタ 8 か 
ら 27 へ， 33 から 47 が レジスタ 32 から 46 へ 対応して います. 

以下に 使い方の 例 を 示します. 

VDP(26)=VDP(26)  OR  &B00001000 

このよう に 指定す ると， 画面 モ一 ド がいかなる 場合で も， VRAM 内の デー 
タを YJK の データと して 出力す るよう になります. また， 次のように 指定す 
ると， ス ブライ トの 表示 を 強制的に 禁止す る ことができます. 

VDP(9)=  VDP(9)  OR  &B00000010 

そのほか 影 if の ある コマ ン ド 

SCREEN10 から 12 の YJK モードで は， グラフ ィ ック 関係の コ マン ドは 
基本的に は， SCREEN8 と 同じ 動作 をし ます. ただし， COPY コマンド など 
を 使う と きに は， YJK データの 4 ドッ トの 区切りに 注意して 行わなければ な 
り ません. 
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パワフル 活用 


T 新 VDP  V9958 の 機能 

MSX2+ 用に 開発され た V9958 は， V9938 の 機能に 加え， YJK 方式に よる 
自然 画 表示， 水平 スクロール などの 機能 力、' 組み込まれ， また， VDP コマンド 
実行に ついての 機能の 強化が はかられ ています. しかし その 陰で， 削られた 
機能 も 存在し ます. ここで は， この V9958 の 機能に ついて， V9938 と 比較し 
ながらより 詳し く 見て いく ことにします.  1 

まず はじめに， V9958 で 追加 された 機能と 削除され た 機能 を あ げ てお き ま 
す. 

V9958 では V9938 に比べて， 以下の 機能が 追加され ています. 

•  YJK 方式に よる 自然 画 表示 モー ドの 採用 
• 水平 方向への ハー ドゥエ アスク ロール 

•  VDP の VRAM ァ ク セス 時の CPU の ポー ト アクセス に 対す る ウェイ 

卜 機能 

•  VDP コマンド をす ベての スクリーンモードで 使用可能 

削られた 機能 は 以下の 2 つです. 
• コンポ ジッ ト ビデオ 出力 

• マウス z ライ ト ペン インターフェイス 

園 V9958 で 新設され た レジスタ 

V9958 で 新設され た レジスタ は 以下のと おりです. もちろん， これらの レ 
ジス タは VDP コ マン ドで 操作す る こと がで き ま す. 
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VDP(26) モード レジスタ #5 
VDP(27) 画面の 水平 ス クロール ① 
VDP(28) 画面の 水平 ス クロール ② 


b7 

b6 

b5 

b4 

b3 

b2 

bi 

bo 

R#25 

0 

CMD 

VDS 

YAE 

YJK 

WTE 

MSK 

SPZ 

R#26 

0 

0 

H08 

H07 

H06 

H05 

H04 

H03 

R#27 

0 

0 

0 

0 

0 

H02 

H01 

H00 

表 2.4   V9958 で 新 股され た レジス タ 


また， V9958 である こと を 示す ために， ステータス レジスタ 1 のなかの ID 
番号 部分 を 2 に 変更して います. 


b7 

b6 

b5 

b4 

b3 

b2 

bi 

bo 

S#1 

F し 

し PS 

0 

0 

0 

1 

0 

FH 

ID# 

ID #=00001 : V9938 
=  00010  ：  V9958 

表 2.5   V9958 の ステータス レジスタ 

マウス Z ライ ト ペン インタ一 フ ヱース 機能 削除の ため， 以下に 示す レジス 
タの ビットが 意味 を 持た なくなります. ただし， MSX2 でも 使われて いない 
機能な ので， とくに 問題はないでしょう. これらの レジスタに 値 を 書き込む 
とき は， これらの ビッ ト にかなら ず 0 を喾き 込んで く ださい. 


R#0 

ビッ ト 5 

IE2 

： ライ ト ペンに よる 割り込み 可能 

R#8 

ビッ ト 7 

MS 

： マウス 使用可能 

ビッ ト 6 

LP 

： ライ ト ペン 使用可能 

S#l 

ビッ ト 7 

汗し 

： ライ ト ペン 光 検出 フラグ 

ビッ ト 6 

LPS 

： ライトペン スィッチ， マウス スィッチ 

R#25 
R#26 
R#27 
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b7 

b6 

b5 

b4 

b3 

b2 

bi 

bo 

R#0 

0 

DG 

IE2 

IE1 

M5 

M4 

M3 

0 

R#8 

MS 

LP 

TP 

CB 

VR 

0 

SPD 

BW 

S#1 

F し 

し PS 

 ID#   - 

FH 

表 2.6   V9938 から 削除され た 機能に 関する レジスタ 


各 レジスタの 設定 


水平 スクロール 

R#26，  27 の 値 を 変える ことによって， 画面の 水平 表示 位 S を 設定す る こ 
とがで きます. 

R#26 は， 設定 値の 分 だけ 画面 を 左方 向へ 移動し ます. 単位 は SCREEN6, 
7 では 16 ドッ ト 単位， それ 以外の モードで は 8 ドッ ト 単位です. 値の 範囲 は 
0 から 63 です. 


b7 

bs 

bs 

b4 

b3 

b2 

b, 

bo 

R#26 

0 

0 

H08 

H07 

H06 

H05 

H04 

H03 

表 2.7 水平 スクロール に関する レジスタ (D 


R#27 は， 設定 値の 分 だけ 画面 を 右方 向へ 移動し ます. 単位 は SCREEN6, 
7 では 2 ドット 単位， それ 以外の モ一 ド では 1 ドット 単位です. 値の 範囲 は 0 
から 7 です. 


b7 

b6 

b5 

b4 

b3 

bz 

bi 

bo 

R#27 

0 

0 

0 

0 

0 

H02 

H01 

H00 

衷 2.8 水平 スクロール に関する レジスタ ② 


R#26，27 を 組み合わせて 指定す る ことによって， 1 ドット 単位で 水平 スク 
ロール をさせる ことができます （SCREEN6，7 では 2 ドット 単位) . 
R#  25 の ビット 1 を 指定す る こ とに よって， スクロール 時に 画面 左側 8 
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ドッ ト （SCREEN6J は 16 ドッ ト） を 表示す るかし ないか を 設定す る ことが 
できます. 表示 を 消した とき は ボーダー カラ一 が 出力され ます. 


b7 

b6 

bs 

b4 

b3 

b2 

bi 

bo 

R#25 

0 

CMD 

VDS 

YAE 

YJK 

WTE 

MSK 

SP2 

MSK=0  ： 画面 左側 8 ドッ トを マスクし， ボーダー カラー を 出力す る 

=1 ： 画面 左側 8 ドッ トは マスク されない 
(SCREEN6,  7 は 16 ドット） 
SP2=0  ： 水平 方向 画面 サイズ を 1 ページと する 

=1 ： 水平 方向 画面 サイズ を 2 ページと する 


表 2.9 マスクと 水平 方向 画面 サイズに 関する レジスタ 

R#25 のビッ ト 0 を 指定す る ことによって， 水平 方向 スクロールの 画面 サ 
ィ ズを 変更す る こ と がで き ます. 

ウェイ ト 機能 

R#25 のビッ ト 2 を 1 にす る と V9958 の VRAM アクセスが 完了す る ま 
で， CPU の V9958 への ポー ト アクセス に対して ウェイ ト を 力、 けます. ポ一 ト 
アクセス のみに ウェイ トが かかる という 点に 注意して く ださい. 

コマンド 機能 

R#25 のビッ ト 6 を 1 にす る と， すべての スク リーン モー ドで， VDP コマ 
ン ドを 使用す る ことができ るよう になり ます. SCREEN5~8 以外の モー ド 
では， SCREEN8 モードと して 動作し ます. ですから， X，  Y 座標 は 
SCREEN8 モ一 ドの 座標系に 従って 設定して く ださい. 

YJK 方式 データの 表示 機能 

R  #25 の ビット 3 を 1 にす ると， 画面 モー ド がいかなる 状態で あっても， 
VRAM 内の データ を YJK 方式の データと みなし， これ を RGB 信号 （RGB 
各 5 ビッ ト） に 変換して 表示し ます. また この モー ド では， ス プライ トの 表示 
色に パレ ッ ト を 使う ことができます. 

このと き， R#25 の ビット 4 が 1 ならば， VRAM 内の データ をァ トリ 
ビュート 付きの YJK データと して 扱います. 
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活用 サンプル プログラム (D 
レイ 卜 レー シンク プログラム 


ここで は， ァ ト リ ビュート なし YJK モードの 1 万 9 千 色 を 使った レイ ト 
レー シン グ プログラム を 紹介し ます. 

この プログラム では， 色 を 従来 どおり RGB の 値と して 計算して います. こ 
れは， YJK よりも RGB の 方が 色の 合成 を計棼 する のに は 優れてい るからで 
す. そして， 計算され た RGB の 値 を YJK の 値に 変換す る 特別な 式 を 使って 
YJK データ を 作って います. 

RGB 力、 ら YJK への 変換 式 を 使えば， こういった RGB で 計算した 方 力、' 都 
合の よい もの や RGB で 存在して いる データ を YJK に 変換して 表示す る 丄 
とがで きます. 

園 RGB から Y JK への 変^ 

レイ ト レ 一シン グ プログラムの 使い方 を 説明す る まえに， RGB  — YJKi 
換の式 を 紹介し ましよ う. 
まず， となり 合う 4 ドットの RGB データ を それぞれ， 

Ri，  Bi，  Gi  (i=0〜3) 

とします. これに 対して， それぞれ 以下の 計棼 をして Ii，  Yi，  Ji，  Ki を 計算 
します. 

① 

② 
(D 
® 

①の式 は RGB から 実際の 人間の 視覚 感度に 近い 輝度 を 算出す るた めの 式 
で， この 計算 式に よって 得られる 値 を Ii  (INTENSITY) とします. ② 式の Y' 
i は 9958 での いわゆる 輝度 情報に 当たる 値です. 


Ii  =-J-Ri+yGi+yBi 

Y'i=^-Ri+-|H3i+4-Bi 
Ji  =Ri-Y'i 
Ki  =Gi-Y'i 
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これらの f [を もとに， 

J  =(J0+Jl+J2  +  J3)+4  —⑤ 
K  =(K0  +  Kl+K2  +  K3)+4  —⑥ 
Yi  =(32li_6J— 15K)+29  —⑦ 

を 計算し ます. この結果 得られた 似が， 4 ド ッ ト の RGB データに 対する YJK 
データ と な り ま す. ⑦ 式で， （D 式で 得た 人間に 祝' 感度に 近い 値 を 使つ て， 
®® 式で 平均 化された JK に 対 して Yi の 値 を 補 jI-: し て， 人間の 視な 感度 力、' 保 
存 される ようにし ています. 

これ を YJK の データ 形式に 従って， VRAM に^き 込みます. ただし， こ 
の 計算 式で は， RGB の データ は それぞれ， OSRi,  Bi，  Gi^31 の範リ H にある 
こと を 仮定して います. また， はした 結果， J,  K がー 32~31 を はみだした 
ら， -32 または 31 に 置き換えます. 同様に Yi 力、' 0~31 を はみ出したら （） ま 
たは 31 に^き 換えます. 演^ 途中で は， 桁 落ち 力、' 起こらな いよう， 充分 注意 
して 計算す る 必要が あります. 

この 計算 式 を 使えば かな りきれ レ、 に RGB データ を YJK データに 変換す 
る ことができます. しかし， YJK の 特徴から， 色の 変化の 激しい ところ や， 
細かく 色が 変化して いると ころ は， どうしても にじんで しまいます 力、'， これ 
は 仕方が ありません. 

この プロ グラム リ' では， RGB を 各 5 ビッ ト の データと して 計-??: してい ま 
す. そして， 1540 行か ら 1730 行で こ の 変換の 処现を 行い VRAM へデ一 タ を 
神き 込んで います. 
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國 物体 や 光の データの 与え 方 

この レイ ト レー シン グ プログラム は DATA 文で バラ メータ を 与える こキ 
によつ て 色々 な 図形 を 描 く こ と がで き ます. DATA は 5000 行 以上の ところ 
から 始める ようにし ます. そし て 行 番号の 若い 方 か ら 以下の ように データ を 


T& 疋 して い 

e ま f. 

5000 

DATA 

EX,  EY,  EZ 

視点の ある 所 

5010 

DATA 

PX,  PY,  PZ 

見つめて いる 場所 

5020 

DATA 

LX,  LY,  LZ 

光源の ある 所 

5030 

DATA 

ZOOM 

拡大 係数 

5100 

DATA 

NUMOBJ 

物体の 数 

5110 

DATA 

OX,  OY，  OZ 

物体の 中心の 位置 

5120 

DATA 

A,  B，  C 

大きさ 係数 

5130 

DATA 

TY,  SH 

種別， シ X —デ イング 番号 

3 行 を 1 組と した 上記の データ を 必要な 物体の 数 だけ （NUMOBJ で 指定 
した 数 だけ） 書いて いきます. 

5200  DATA  NUMSHD シェーディングの 数 
5210  DATA  R,  G,  B         色 係数 
5220  DATA  AM,  Dl，  Ml 環境 光， 拡散 光， 鏡面 係数 
5230  DATA  SP,  ME  表面 反射光の 強さ， 表面の 磨かれ 具合い' 

鏡面 度 

3 行 を 1 組と した 上記の データ を 必要な シヱ一 ディ ングの 数 だけ （NUM- 
SHD で 指定 し た 数 だけ） 書いて いきます. 

視点の ある 位邇， 見つめて いる 場所， 光源の ある 位置 を XYZ で 指定し ま 
す. この 3 次元 空間 は， 一般的に 右手 系と いわれる 座標系です. 

拡大 係数 は， XYZ で 指定 した一 目盛り を 実際に どのくらいの 大きさで 描く 
か を 示して いします. 

種別 を 指定す る ことによって， その物 体の 形 を 決めます. 指定で きる 物体 
の 種類 は 直方体と 球です. 種別 ごとの 大きさ 係数の 指定の 仕方 は 次のように 
なって います. 


45 


グラフィック 機能 


TY  =  0 のとき は 直方体 を 描きます. このと き 大きさ 係数 は， 

A:  X 軸の 広がり 
B:  Y 軸の 広がり 
C:Z 軸の 広がり 

というよ うに， 図形の 中心から 図形の 辺までの 距離 を X，  Y,  Z それぞれの 方 
向に ついて 指定し ます. 
TY  = 1 のとき は 球体 を 描きます. このと き 大きさ 係数 は， 

A:  X 軸の 半径の 2 乗の 逆数 （cf  •  A  = l/(Rx  *  RX)) 
B:  Y 軸の 半径の 2 乗の 逆数 
C:  Z 軸の 半径の 2 乗の 逆数 

になります. XYZ の 値 を 同じに すれば， 完全な 球になります. また バラ バラ 
の 値 を 指定 すれば， フ ッ ト ボー ノレ 状の 球 を 描 く こ と も 可能です. 

シ エーディ ング 番号 は 次に 説明す る データの うち， どの データ を 使用す る 
のか 番号で 指定し ます. 

シ エーディ ングと は， その物 体の 表面に 色 を 付ける ための データです. 3 行 
を 1 組と して 指定して いきます. 最初の シヱー ディ ング データから 1 組 ごと 
に 順番に 0 から シェ一 ディン グ 番号が 付け られ ていきます. これ を， 図形 デ一 
タのシ エーディ ング 番号のと ころに 指定す る わけです. 

鋭 面 係数と は， 物体の 表面の 状態 を 表し， 数値が 大きい ほど 鏡の ようによ 
く 光 を 反射し ます. 1.0 のとき は， 完全な 鏡面になります. 

色 係数 は， その物 体の 色 を RGB3 値の 割合で 設定し ます. 環境 光 は， まわ 
りの 物体の 照り返し や 空気に よる 散乱 光の 強さ を 指定し ます. 拡散 光 は， 光 
源から やって来る 光が 物体の 表面 で 乱反射 されて 目に はいる 光の 強さ を 指定 
します. 表面 反射光の 強さ は， 光源からの 光が 反射 調節され て 目に はいって 
くる 光の 強さ を 指定し ます. 鏡面 度 は， その物 体の 面が どのぐ らい 磨き あげ 
られ ている カバ でこぼこが あるかない 力り を 指定し ます. 

視点 や 物体の 位置 を 表す XYZ の 値の 範囲 は， 任意に 設定して よいので す 
が， あまり 大き な 値 を 設定す る と 計算 誤差 か ら 図形が 歪ん でし まう 可能性が 
あるので， でき れば 0 から 10 程度の 値に した 方が よいでしょう. 
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その他の， 色 係数 ゃシ ヱ一 デ イングの 係数 はすべ て 0.0 から 1.0 の 範囲で 設 
定 します が. 鏡面 度 だけ は 0 から 8 位までの 整数で 指定し ます. 

シェーディング 番号に- 1 を 指定す ると， シェーディング #0，  #1 によ も 
チェック 胃 を 形成し ます. このと き 物体の 種類 は 球， 直方体の どちら を 指 
定 しても 大丈夫で すが， 球の 場合 は あまりき れいに 表示で きません. 

騸 使用の 際の 注意 

すべての 計算が 終わって， 絵 を 描き 終る と BASIC のコ マン ド モー ドに 
戻って きます 力、'， 画像 データ は VRAM の ページ 1 に 描かれて いますので， ま 
だ データ は 残って います. あわてずに BASIC で， 

10  SCREEN  12:SET  PAGE 1,1 
20  IF  INKEY$=M"  THEN  GOTO  20 

を 実行す れば 完成 した 絵 を 心行く まで 鑑^す る ことができ ま す. 
でき た 絵 を ディ ス ク 等に 保存 したいと き は， BASIC で， 

SCREEN 12  ：  SET  PAGE 1,1 ： BSAVEMFILESNAME",0,&HD400,S 

とすれば 保存で きます. 

この プロ グラムで は， SCREEN8 の 画像 を 作る こと もで きます. SCREEN8 
の 絵 を 書く とき は， 1010 行の リマーク 記号 を 削除し， 1480 行 を 削除して くだ 
さい. 

データ を 作る と き， 毎回 ま ともに 実行して いたので は 時間が かかりす ぎる 
ので， 1 ピクセル を 4X4 ドッ トで 表示して 短時間で 表示 画像の 概要 を 見る こ 
とので きる モー ドを 用意して います. この モ一 ドを 使用す るに は 1180 行の 
MD  =  0 を MD  = 1 に喾き 変えて く ださ い. 

絵 を 描く ために かかる 時間 は， ベーし つ 君 を 使った 場合， 図形 3 つで， 3 時 
間 程度 かか り ま す. BASIC の 場合 は， 同 じ 条件で， 16 時間 ぐ らいか か ります. 
図形が 増えて いけば， どんどん 時間が かかる よう になって いきます. ベーし つ 
君 を 持って いない 人 は， 図形の 数 を 4 から 5  く らいに 設定した ほうがよ いで 
しょ う.  ！ 

最後に， サンプルと して データの 書き方の 例 を あげてお きます. 
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5000 

' data 

5010 

DATA 

20，  40,  20 

EX.EY.EZ 

視点の ある 所 

5020 

DATA 

0, 

0， 

0 

PX.PY.PZ 

見つめて いる 場所 

5030 

DATA 

-8, 

9, 

-3 

LX.LY.LZ 

光源の ある 所 

5040 

DATA 

6 

ZOOM 

拡大 係数 

5050 

DATA 

4 

NUMOBJ 

物体の 数 

5060 

DATA 

-2,0, - 

2 

OX.OY.OZ 

物体の 中心の 位置 

5070 

DATA 

.2, 

2,  .2 

A,  B,  C 

大きさ 係数 

5080 

DATA 

1, 

0 

TY.SH 

種別， シ ヱ ーデ イング 番号 

5090 

DATA 

2， 

0, 

2 

OX.OY.OZ 

物体の 中心の 位置 

5100 

DATA 

.2, 

.2, 

.2 

A,  B,  C 

大きさ 係数 

5110 

DATA 

1, 

1 

TY.SH 

種別， シェーディング 番号 

5120 

DATA 

-2， 

0, 

2 

OX.OY.OZ 

物体の 中心の 位置 

5130 

DATA 

.2, 

.2, 

.2 

A,  B,  C 

大きさ 係数 

5140 

DATA 

1， 

2 

TY.SH 

種別， シ ヱ ーデ イング 番号 

5150 

DATA 

2, 

0, 

-2 

OX.OY.OZ 

物体の 中心の 位置 

5160 

DATA 

.2, 

•2, 

.2 

A,  B,  C 

大きさ 係数 

5170 

DATA 

1， 

3 

TY.SH 

種別， シ ヱ ーデ イング 番号 

5180 

DATA 

4 

NUMSHD 

シェーディングの 数 

5190 

DATA 

.4, 

.8, 

6 

R,G,  B 

色 係数 （シ i 一 ディン グ #0) 

5200 

DATA 

.3， 

.6, 

0 

AM.DI.MI 

環境 光， 拡散 光， 鏡面 係数 

5210 

DATA 

0, 

0 

SP.ME 

表面 反射光の 強さ， 鏡面 度 

5220 

DATA 

.4, 

.8, 

6 

R，  G,  B 

色 係数 （シ i ーデ イング #1) 

5230 

DATA 

.3, 

.6, 

0 

AM,DI,MI 

環境 光， 拡散 光， 鏡面 係数 

5240 

DATA 

.6, 

2 

SP.ME 

表面 反射光の 強さ， 鏡面 度 

5250 

DATA 

.4, 

.8, 

.6 

R,  G,  B  • 

色 係数 （シ ヱーデ イング #2) 

5260 

DATA 

.3， 

.6, 

0 

AM.DI.MI 

環境 光， 拡散 光. 鏡面 係数 

5270 

DATA 

.6, 

4 

SP.ME 

表面 反射光の 強さ， 鏡面 度 

5280 

DATA 

.4, 

.8, 

.6 

R,G，  B 

色 係数 （シ I— デ イング #3) 

5290 

DATA 

.3, 

.6, 

0 

AM.DI.MI 

環境 光， 拡散 光， 鏡面 係数 

5300 

DATA 

.6, 

6 

SP.ME 

表面 反射光の 強さ， 鏡面 度 
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リスト 2.7 レイトレーシング プログラム TRACE.BAS 


1000  '  screen  init 

1010  "SCREEN  8,0:SET  PAGE 1,1 

1020  SCREEN 12: SET  PAGE 1,1 

1030  CLS 

1040  '.TURBO  ON 

1050  '  initialize 

1060  DIM  T(9),V(15), 0(19.7). S(19,7),RI(3).GI(3).BI(3). I(3),Z(3). Y(3) 

1070  FOR  1=0  TO  9： READ  T(I):NEXT  I 

1080  V(0)=T(0) ： V(1)=T( 1) : V(2)=T(2) 

1090  V(9)=T(0)-T(3):V(10)=T(1)-T(4):V(11)=T(2)-T(5) 

1100  V=SQR(V(9)xV(9)+V(10)*V(10)+V(ll)*V(ll)) 

1110  V(9)=V(9)/V.V(10)=V(10)/V:V(11)=V(11)/V 

1120  V(6)=-V(9)*V(10):V(7)=l-V(10)*V(10):V(8)=-V(ll)xV(10) 

1130  V(3)=-(V(10)*V(8)-V(ll)xV(7)):V(4)=-(V(ll)xV(6)-V(9)*V(8)) 

1140  V(5)=-(V(9)*V(7)-V(10)*V(6)):V(15)=T(9) 

1 150  V(12)=T(6):V(13)=T(7):V(14)=T(8) 

1160  READ  MO ： FOR  1=0  TO  M0-l:F0R  J=0  TO  7： READ  0(U): 曙 J,  I 
1170  READ  MS: FOR  1=0  TO  MS- 1： FOR  J=0  TO  7:READ  S(I,J):NEXT  J, I 
1180  MA=1000:HI=1E-03:MD=0:PT=4 
1190  FOR  1=1 TO  4 

1200  V=SQR(V(l*3+0)xV(lx3+0)+V(lx3+l)xV(]x3+l)+V(l*3+2)*V( 1*3+2)) 
1210  V(Ix3+0)=V(Ix3+0)/V:V(Ix3+l)=V(I*3+l)/V:V(|x3+2)=V(|x3+2)/V 
1220  NEXT  I 
1230  *  trace 

1240  FOR  SY=0  TO  211 STEP  4： FOR  SX=0  TO  255  STEP  4:XD=0:YD=0 
1250  CX=V(0):CY=V(1):CZ=V(2) 

1260  VX=V(3)*(SX+XD-128)/99+V(6)x(106-SY-YD)/99-V(9)«V(15) 

1270  VY=V(4)x(SX+XD-128)/99+V(7)*(106-SY-YD)/99-V(10)xV(15) 

1280  VZ=V(5)*(SX+XD-128)/99+V(8)*(106-SY-YD)/99-V(ll)*V(15) 

1230  V=SQR(VXxVX+VY*VY+VZ*VZ) 

1300  VX=VX/V:VY=VY/V:VZ=VZ/V 

1310  CR=0:CG=0:CB=0:RN=0:RF=1 

1320  GOSUB  1760 

1330  IF  CR>=1  THEN  CR=.99 

1340  IF  CG>=1  THEN  CG=.99 

1350  IF  CB>=1  THEN  CB=.99 

1360  IF  HD  THEN  1420 

1370  RI(XD)=CR:GI(XD)=CG:BI(XD)=CB 

1380  XD=XD+l:lF  XD<4  THEN  1250 

1390  GOSUB  1470:XD=0 

1400  YD=YD+i:lF  YD<4  THEN  1250 

1410  GOTO  1440 


49 


グラフィック 機能 


1420 

1430 

1440 

1450 

1460 

1470 

1480 

NE 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 


FOR  XD=0  TO  3:RI(XD)=CR:GI(XD)=CG:BI(XD)=CB:NEXT  XD 

FOR  YD=0  TO  3:G0SUB  1470： NEXT  YD 

IF  STRIG(0)  THEN  GOTO  1460 

NEXT  SX.SY 

END 

' dr&w 

GOTO  1560：' IF  YOU 漏 T  TO  SEE  SCREEN8  PICTUER  THEN  DELETE  THIS  LI 

"MAKE  RGB  DATA  FOR  SCREEN8  AND  WRITE  IT  ON  THE  SCREEN 
FOR  XD=0  TO  3 

CC=INT(GI(XD)*8)*32+INT(Ri (XD)«8)*4+INT(B I (XD)«4) 

PSET(SX+XD.SY+YD),CC 

NEXT  XD 

RETURN 

'MAKE  YJK  DATA  FOR  SCREEN 12  AND  WRITE  IT  ON  THE  SCREEN 
FOR  XD=0  TO  3 

RI(XD)= INTCRI (XD)*32) :GI(XD)=INT(GI (XD)*32) ： B I (XD)= INT(BI (XD)*32) 
NEXT  XD 

FOR  XD=0  TO  3： I (XD)=RI (XD)/4+G I (XD)/2+B I (XD)/8: NEXT  XD 
FOR  XD=0  TO  3:Z(XD)=RI(XD)/4+GI(XD)/8+BI(XD)/2:NEXT  XD 
J=lNT((RI(0)+RI(l)+RI(2)+Rl(3)-Z(0)-Z(l)-Z(2)-Z(3))/4) 
IF  J<-32  THEN  J=-32 
IF  J>  31 THEN  J=  31 

K=INT((Gl(0)+GI(l)+GI(2)+GI(3)-Z(0)-Z(l)-Z(2)-Z(3))/4) 
IF  K<-32  THEN  K=-32 
IF  K>  31 THEN  K=  31 

FOR  XD=0  TO  3:Y(XD)=INT((32xI(XD)-6*J-15*K)/29) 
IF  Y(XD)>31  THEN  Y(XD)=31 


THEN  Y(XD)=0 


,Y(0)*8+(K 
,Y(1)*8+(K 
,Y(2)*8+(J 
,Y(3)*8+(J 


AND  7) 
AND  56)/8 
AND  7) 
AND  56)/8 


IF  Y(XD)<0 
NEXT  XD 

PSET(SX+0,SY+YD), 
PSET(SX+1,SY+YD), 
PSET(SX+2,SY+YD), 
PSET(SX+3,SY+YD), 
RETURN 
' pixsel 
TT=MA 

FOR  N=0  TO  MO-1 
GOSUB  1870 

IF  TT>T  AND  T>MI  THEN  TT=T:TN=N:LX=NX:LY=NY:LZ=NZ 
NEXT  N 

IF  TT=HA  THEN  1860 

CX=CX+TT«VX : CY=CY+TT*VY ： CZ=CZ+TT*VZ ： N=TN 
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1840  GOSUB  2150 

1850  IF  F=l THEN  GOTO  1760 

1860  RETURN 

1870  ，  cross 

1880  RX=CX-O(N,0):RY=CY-O(N, 1):RZ=CZ_0(N,2) 
1890  A=0(N,3):B=0(N.4):C=0(N,5) 
1900  ON  0(N,6)+1  GOTO  1920,2030 
1910  GOTO  1920 
1920  *  box 

1930  IF  VX=0  THEN  T1=MA  ELSE  IF  RX<0  THEN  T1=-(RX+A)/VX  ELSE 
)/VX 

1940  IF  VY=0  THEN  T2-MA  ELSE  IF  RY<0  THEN  T2=-(RY+B)/VY  ELSE 
)/VY 

1950  IF  VZ=0  THEN  T3=MA  ELSE  IF  RZ<0  THEN  T3=-(RZ+C)/VZ  ELSE 
)/VZ 

1960  IF  ABS(RY+T1«VY)>B  OR  ABS(RZ+T1*VZ)>C  THEN  T1=MA 
1970  IF  ABS(RZ+T2*VZ)>C  OR  ABS(RX+T2«VX)>A  THEN  T2=MA 
1980  IF  ABS(RX+T3*VX)>A  OR  ABS(RY+T3*VY)>B  THEN  T3=NA 
1990  IF  T1=<T2  AND  T1=<T3  THEN  T=T 1 ： NX=-VX/ABS( VX) ： NY=0 ： NZ=0 
2 麵 IF  T2=<T3  AND  T2=<T1  THEN  T=T2: NY=-VY/ABS(VY) ： NZ=0 ： NX=0 
2010  IF  T3=<T1  AND  T3=<T2  THEN  T=T3 ： NZ=-VZ/ABS( VZ) ： NX=0 ： N Y=0 
2020  RETURN 
2030  '  ball 

2040  AA=VX*VX«A+VYxVY*B+VZ*VZxC 

2050  BB=RX*VX*A+RY*VY*B+RZ*VZ*C 

2060  CC=RXxRX«A+RY*RY*B+RZ*RZxC- 1 

2070  DD=BB*BB-AA*CC 

2080  IF  DD<0  THEN  T=MA:GOTO  2140 

2090  T1=(-BB-SQR(DD))/AA:T2=(-BB+SQR(DD))/AA 

2100  IF  T1<T2  THEN  T=T1  ELSE  T=T2 

2110  NX=Ax(RX+T«VX) ： NY=B*(RY+T*VY) ： NZ=C*(RZ+T*VZ) 

2120  M=SQR(NX«NX+NY*NY+NZ*NZ) 

2130  NX=NX/M:NY=NY/M:NZ=NZ/M 

2140  RETURN 

2150  '  shade 

2160  SH=0(N,7) 

2170  IF  SHo-1  THEN  2220 

2180  PX=INT(ABS(CX+100)/PT-(CX+100<0)) 

2190  PY= I NT(ABS(CY+100)/PT-(CY+100<0)) 

2200  PZ=INT(ABS(CZ+100)/PT-(CZ+100<0)) 

2210  SH=(PX+PY+PZ)  MOO  2 

2220  SR=S(SH.0):SG=S(SH, 1):SB=S(SH,2) 

2230  SA=S(SH,3) ： SD=S(SH. 4) ： SF=S(SH, 5) 


T1=-(RX-A 
T2=-(RY-B 
T3=-(RZ-C 
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2240  SP=S(SH,6):SE=S(SH,7) 

2250  JX=V(12)-VX:JY=V(13)-VY:JZ=V(14)-VZ 

2260  JN=SQR(JX*JX+JY*JY+JZ«JZ) 

2270  SM=(LX*JX+LY*JY+LZ*JZ)/JN 

2280  IF  SM<0  THEN  SM-0 

2280  FOR  P=l TO  SE:SM=SM*SM:NEXT  P 

2300  VN=-2«(LX*VX+LY*VY+LZ*VZ) 

23 1 0  WX=VX+VN*LX ： WY=VY+VN«LY ： WZ=VZ+VN«LZ 

2320  VX=V(12):VY=V(13):VZ=V(14) 

2330  SN=LX*VX+LY*VY+LZ*VZ 

2340  IF  SN<0  THEN  SN=0 

2350  FOR  N=0  TO  MO-1 

2360  GOSUB  1870 

2370  IF  MA>T  AND  T>MI  THEN  SN=0:SM=0 
2380  NEXT  N 

2390  CR=CR+(SR*(SA+SD*SN)+SP*SM)xRF 
2400  CG=CG+(SG*(SA+SD*SN)+SP*SM)«RF 
2410  CB=CB+(SB*(SA+SD«SN)+SP*SM)xRF 
2420  IF  SF=0  AND  RN<4  THEN  F=0:GOTO  2450 
2430  F=i:RF=RF*SF:RN=RN+l 
2440  VX=WX:VY=WY:VZ=WZ 


2450 

RETURN 

5 麵 

' data 

5010 

DATA 

20, 

40, 

20 

5020 

DATA 

0, 

0. 

0 

5030 

DATA 

-8, 

9, 

-3 

5040 

DATA 

6 

5050 

DATA 

4 

5060 

DATA 

-2. 

0, 

-2 

5070 

DATA 

.2, 

.2, 

.2 

5080 

DATA 

1. 

0 

5090 

DATA 

2, 

0, 

2 

5100 

DATA 

.2, 

.2, 

.2 

5110 

DATA 

1, 

1 

5120 

DATA 

-2, 

0, 

2 

5130 

DATA 

.2, 

.2, 

.2 

5140 

DATA 

1, 

2 

5150 

DATA 

2, 

0. 

-2 

5160 

DATA 

.2， 

.2, 

.2 

5170 

DATA 

1, 

3 

5180 

DATA 

4 

5190 

DATA 

5200 

DATA 

.3, 

.6, 

0 
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5210  DATA 

0, 

0 

5220  DATA 

.4, 

.8, 

,6 

5230  DATA 

.3, 

.6, 

0 

5240  DATA 

.6, 

2 

5250  DATA 

.4, 

.8, 

.6 

5260  DATA 

.3, 

.6, 

0 

5270  DATA 

.6, 

4 

5280  DATA 

.4, 

.8. 

.6 

5290  DATA 

.3, 

.6. 

0 

5300  DATA 

.6, 

6 
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活用 サンプル プログラム ©   

 YJK モード 用 グラフィック エディタ  

YJK モー ドで絵 を 作ったり， 編集したり できる 簡易な グラフ ィ ック エディ 
タを 紹介し ます. 

これ は， SCREEN モー ドで いう と SCREEN10, 11 のァ ト リ ビュート 付き 
の YJK データ を エディ ッ ト する ための ものです. 
この プログラム では， ボイ ン ティ ング デバイス として マウス を 使う ことが 

できます. もちろん キーボード でも 使用可能です. 

プログラム を 実行す ると， 矢印の 形 をした カーソル 力、' 表示され ます. また， 
アイ コン など 力 f 描かれた メニュー ウイ ン ドウ も 表示され ます. この カーソル 
は マウス を 動かす ことによって， 移動す る ことができます. キーボードで 使 
用す る 場合 は カーソル キー を 押す ことで カーソル を 移動させる ことができ ま 
す. この場合， シフトキー を カーソル キーと 同時に 押す と 速く 移動させる こ 
とがで きます. 

操作 コマ ン ドの 実行 は， メニュー ウイ ン ドウの 右側に 並んで いる アイ コン 
を， 力一 ソルで 指定して， マウスの 右側の ボタン （キー ボー ドの 場合 は スぺ一 
スキー） を 押す ことによ つ て 行われます. 

この グラフィック エディタに は 2 つの モードが あります. 1 つ は， ァ トリ 
ビュー ト が 0 の データ， すなわち YJK の データに 対して 操作 をす る YJK 
モードと， ァ ト リ ビュート ビッ ト を 立てて パ レツ ト コード を 書き込む RGB 
モー ドに 分けられます. これ は BASIC での SCREEN10 と SCREEN11 の 違 
いと 同じです. 

それぞれの モー ドは メニュー ウイ ン ドウの MD と 描かれた アイ コ ンをク 
リ ッ ク する と 切り替える ことができます. 
それで は， それぞれの モー ド での 操作の 仕方 を 説明して いきます. 
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■  YJK モードでの 操作 

RUN させた 直後 はこの モ一 ド になって います. この モ一 ド では YJK デー- 
タ  に対する  操作 をす  る  ことができ ます. 

YJK では， JK の 値 を 2 バイトに ま たがつ て 設定し なければ な らな いので， 
4 ドット を 1 組と して 扱って います. YJK モー ド での 1 ピクセル は 4 ドッ ト 
にあたり ます. PSET すると 横に 細長く  4 ドット を 書き込みます. 

メニュー ウイ ン ドウの 左側に YJK の カラ一 を 設定す るた め ウイ ン ドウが 
あります. いちばん 左側の 枠に は， 作った 色 を 登録して 置く ことができる 登 
録 枠が あ ります. 最初の 状態で は デフ ォ ル ト の 色が すでに セット されて いま 
す. 

操作 コマンド を 選択す る まえに 色 を 設定し ます. まず， どの 登録 枠 を 使う 
かきめ ます. 使いた い 登録 枠 を 力一 ソ ルで 選ん で 左の ボタン を クリック しま 
す. 

そして， そ の 右側の 棒が 並ん でい ると ころで 色 を 決め ま す. 

左から Y が 4 つと JK が 並んで います. それぞれの 列で X 座標 を 合わせ 
て， 上側の + または 下側の 一 を タリ ック する ことによって， YJK の 値 を 変更 
する ことができます. 

4 つの Y は それぞれ 左から， 1, 2，  3，  4 ドッ ト 目の Y データに 順番に 対応 
しています. + や一 のと ころ を タリ ック して 棒 を 延ばしたり 縮めたり して， 各 
YJK の 値 を 決める わけです. Y の 値 は， 棒 をい ちばん 延ばした 状態が 31， 棒 
が 見え なくなつ た 状態が 0 に 当たり， 奇数の 値 を 除いた 16 段階 を 指定す る こ 
とがで きます. J,  K は 一番 延ばした 状態が 31, 棒が 見え なくなった 状態が， 
-32 に 当たります. 各 YJK の 値 を 調整して 希望の 色 を 作り ます. 

メニュー ウイ ン ドウの 右側の アイコン をクリ ッ ク すると それぞれ 操作 コマ 
ン ドが 実行され ます. 色はパ レツ トで 指定され た 色で 描きます. 

YJK モードで 使える 操作 コマンド は PSET，  LINE,  BOX,  BOXFULL, 
LOAD,  SAVE です. 

はじめに 説明した とおり， 4 ドッ ト を 1 ピクセル をと して 扱って います ヰ 
ら， すべての コマンドで， 縦 は 1 ドット， 横 は 4 ドットと して 書き込んで >| 
きます. 
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醒 RGB モード 

RGB モードで は， アトリビュート ビット を 立てて， 指定され た パレット 
コード を 書き込んで いきます. 色 は， 512 色 中 15 色 を 選んで 使う ことができ 
ます. YJK モードと 同じように， メニュー ウィンドウの 左側に， ハ 。レットの 
色 を 変更す るた めの ウィンドウが あります. 色 を 変えたい とき は， まず， パ 
レツ ト を 選択し ます. 色 を 変更したい パ レツ トの 上に カーソル を 移動して 左 
ボタン を クリック します. そのと なりに ある 棒グラフ 力、' 並んで いる 部分で 色 
を 変更し ます. 左から RGB の 順に 並んで います. それぞれの 列に X 座標 を 
合わせて 上側の + や 下側に ある一 をクリ ック すると， 棒が 伸びたり 縮んだり 
して， RGB の 値 を 設定す る ことができます. 棒が一 番 延びた 状態が 7， 見え 
なくなつ た 状態が 0 に 当たります. 各 RGB の 値 を 変更し て 希望の 色 を 作 り 
ます. 

BDR で PAINT コ マン ド 実行時の 境界 色の 指定 をす る こ と がで きます. 
境界 色に したい パ レツ ト を 選んで， BDR と 書かれた ところ を， 力一 ソルで 選 
んで クリック すると， いま 選んだ 色が そこに 表示され ます. そして， ペイン 
ト したい パ レツ ト を 選んで， PAINT コ マン ドを 実行して く ださい. BDR の 
色で 囲まれた 部分 を 塗りつぶします. もちろん 同じ 色 を 境界 色と して 選ぶ こ 
ともで きます. 

RGB モードで 使える 操作 コマ ン ドは， PSET，  LINE,  BOX,  BOXFULL, 
CIRCLE1,  CIRCLE2,  FULL,  PAINT,  SAVE,  LOAD です. 
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■  YJK モード， RGB モード 共通の 使い方 

YJK モー ド， RGB モー ド ともに 操作 コマ ン ドの アイ コンを 指定して 実行 

すると， メニュー ウィンドウ は 画面から 消えます. そして， q と 描かれた!^ 

イコンが 残ります. コマンドの 実 4亍 を 終わって， メニュー ウィンドウ を 表 ^ 
させたい とき は， Q と 描かれた アイ コンを カーソルで 選んで 左の ボタン を |7 
リ ック します. 

PSET コ マン ドは左 ボタン （キー ボー ドの 場合 は スペース キー） を 押す と 1 
ピクセル 分 プロ ッ ト する ことができ ます. 押しながら マウス を 移動 させれば， 
曲線 を 描く こと もで きます. LINE,  BOX 等の コマンド， その他の コ マン 
ド では， 左 ボタン を 押して 始点 決定で， そのまま 押しながら 終点 位 S を 決め， 
ボタン を 離す と 終点が 決定され， ライン や ボックス を 描きます. 

右 ボタン （キー ボー ド ならば N キー） を 押す と， 直前に 実行した コ マン ドの 
結果 を キャンセル する ことができます. ただし メニュー を 表示して しまった 
場合 は， もう キャンセル する こと はでき ません. 

SAVE,  LOAD コ マン ド ではい つたん 画面が ク リア 一され ファイル 名の— 
蓖 力、' 表示され ます. そこで， ファイルネームの 入力 を 要求して く るので， メッ 
セージに 従って 入力して いってく ださい. この エディ タで 使用す る 画像 デ一 
夕の ファイル 形式 は， BASIC の COPY コ マン ドの 画ィ象 データの 形式です. 
ファイル 名の 拡張 子 は" .PIC" です. 

BASIC で， 

10  SCREEN 11( または SCREEN 10) 
20  COPY  "TEST.PIC"  TO  (0,0) 
30  IF  INKEY$=MM  THEN  30 

とすれば， 読み込む ことができます. SCREEN12 の アトリビュート なしの 
YJK モード 用の データ を エディ ッ 卜する 場合 は， いったん SCREEN12 で 
データ を 読み込み， SCREEN11 または 10 に モード を 変更して セーブし 直し 
て く ださい. 
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たとえば， 

10  SCREEN 12 

20  COPY  "TEST.YJK"  TO  (0,0) 
30  SCREEN 11 

40  COPY  (0,0)-(255，211)  TO  "TEST.PIC" 

を 実オ于 してく ださい. 

こうす る ことに よって， ァ ト リ ビュー ト ビット がすべ て ク リ ァ 一され， 
SCREEN10, 11 で 意味の ある 画像 を 表示で き るよう になります. 

YJK の 性質から， SCREEN8 や 7 のように 1 ドッ ト ごとに 1ぉ おに 色 を 付け 
て 絵 を 描く こと は 出来ません 力、'， それでも， YJK で 描かれた 絵に 文字 を 人れ 
たり， ちょっと YJK の データ を 変 Vi したりす る^ 度の 川 途 には侦 える で 
しょう. 
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リスト 2.8   YJK モード 用 グラフィック エディタ GRP.BAS 


1000  'MSX2+  Graphic  editor  ver.1,0 
1010  GOTO  1400 
1020  'RGB  indicator 

1030  FOR  I=V+13  TO  V+34  STEP8:LINE(I.W+113)-(I+5,W+47),0,BF:NEXT 
1040  I=P(C,0):IF  I  THEN  LINE(V+13,W+113)-(V+17,W+113-(I*8)), 15.BF 
1050  J=P(C.1):IF  J  THEN  L INECV+21 , W+l 13)-(V+25, W+l 13-( J«8)) . 15, BF 
1060  L=P(C.2):IF  L  THEN  L INECV+29 , W+ 1 13)-( V+33 . W+ 1 13-(L*8) ) , 1 5. BF 
1070  RETURN 
1080  'YJK  indicator 

1090  FOR  I=V+13  TO  V+34  STEP  6:LINE(I,W+9)-(I+4,W+113),8.BF:NEXT 
1100  LlNE(V+39,W+9)-(V+43,W+113),8,BF:LINE(V+47.W+9)-(V+51,W+113).8iBF 
1110  X=Y(E,0.0):IF  X  THEN  L INE(V+13, W+l 13)-(V+17 . S+l 13-(X*4)) . &HF8, BF 
1120  Y=Y(E,1,0):1F  Y  THEN  LINE(V+19, W+l 13)-(V+23, W+l 13-(Y«4)) , &HF8, BF 
1130  P=Y(E,2,0):IF  P  THEN  LINE(V+25, W+l 13)-(V+29, W+l 13-(P*4)) , &HF8. BF 
1140  Q=Y(E.3,0):IF  Q  THEN  LINECV+31 . f +1 13)-(V+35. W+l 13-(Q*4)) . &HF8. BF 
1150  J=Y(E,0.1):IF  J  THEN  LINE(V+39.W+113)-(V+43,W+113-J),&HF8,BF  ！ 
1160  K=Y(E.2,1):IF  X  THEN  LI NE(V+47, W+l 13)-(V+51 , W+l 13-K) , &HF8, BF  1 
1170  F=(X«16)+8+J  MOD  8： RETURN 
1180  'color  bar 

1190  LINE(V+13.W+29)-(V+33,W+34),C,BF:C0L0R  SPR1TE.(1)=C: RETURN 
1200  'border  color  bar 

1210  L 1 NE(V+ 13 , W+10)-(V+33 ,W+15).D.BF: RETURN 
1220  'YJK  color  bar 
1230  J=W+E*8+2:L=J+6 

1240  I=Y(E,3,0)*16+Y(E, 0， 1)¥8: LlNE(V+5， J)-(V+5, L) , I :LINE(V+9, J)-(V+9, L 
),! 

1250  I=Y(E.2,0)*16+Y(E.0,1)  MOD  8:LINE(V+4. J)-(V+4,L), 1 :L1NE(V+8J)-(V 
+8,L).I 

1260  I=Y(E,1,0)*16+Y(E,2.1)¥8:LINE(V+3,J)-(V+3,L).I:L1NE(V+7J)-(V+7.L 
).I 

1270  I=Y(E.0.0)*16+Y(E.2,1)  MOD  8:LINE(V+2, J)-(V+2.L). l:LINE(V+6J)-(V 

+6.D.I 

1280  RETURN 

1290  'quitting  sprite 

1300  I=8-(V>127)*232:PUT  SPRITE  2, (1, 1), は， 8:PUT  SPRITE  3. (I, 1),4,9:PU 
T  SPRITE  4,(0.216),0,9:RETURN 
1310  'quit  (screen  node 10) 

1320  P=PEEK(&HCA04):Q=PEEK(&HCA03):IF  V>127  THEN  1340  , 
1330  IF  Q<10  AND  P>6  AND  P<17  THEN  RETURN  1470  ELSE  RETURN  j 
1340  IF  Q<10  AND  P>238  AND  P<249  THEN  RETURN  1470  ELSE  RETURN 
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1350  'quit  (screen  node 11) 

1360  P=PEEK(&HCA04) ： Q=PEEK(&HCA03) ： IF  V>128  THEN  1380 
1370  IF  Q く 10  AND  P>6  AND  P<17  THEN  RETURN  2560  ELSE  RETURN 
1380  IF  Q く 10  AND  P>238  AND  P<249  THEN  RETURN  2560  ELSE  RETURN 
1390  'lain 

1400  CLEAR  200.&HC9FF 

1410  MAXFILES=2:DEFINT  A-Z:DIM  P(15,2).Y(15,3. 1),H(15) 

1420. SCREEN  10.0.0:SET  PAGE  1.1： COLOR  15,0,0:CLS:COLOR  SPR1TE(0)=14:GO 

SUB  4250:GOSUB  4200 

1 430  GOSUB  4370 : DEFUSR=&HCA00 : DEFUSR1=&H156 : DEFUSR2=&KCA09 : DEFUSR3=&HC 
A0C:DEFUSR4=&HCA0F 

"40  ON  ERROR  GOTO  4310： OPEN  Vp:"  FOR  OUTPUT  AS  #1： COLOR  SPRITE(1)=1 
:C= は: D=15:E=15:G0T0  2560 
1450  'Screen 10  siode  edit 

1460  COPY(0,0)-(255, 21D.0  TO  (0.0), 1:G0SUB  3780： GOTO  1480 

"70  COPY(0.0)-(255,211),1  TO  (0,0).0:GOSUB  3780： PUT  SPRITE  2.(0,216) 

1 480  A=USR(0) ： X=PEEK(&HCA04)-V ： Y=PEEK(&HCA03)-W 

1430  IF  PEEKC&HCA08)  THEN  1460  ELSE  IF  PEEK(&HCA07)=0  THEN  1480 

1500  IF  X<2  OR  X>68  OR  Y<2  OR  Y>128  THEN  1480 

1510  IF  X>34  THEN  1610 

1520  IF  X>10  THEN  1560 

1530  "color 

1540  C=(Y-2)¥8:G0SUB  1190:GOSUB  1030: GOTO  1480 

1550  'border-color  or  pal lete 

1560  IF  Y>7  AND  Y<16  THEN  D=C:GOSUB  1210:GOTO  1480 

は 70  IF  Y>37  AND  Y<38+32  THEN  1=1 ELSE  IF  Y>130-32  THEN  1=7  ELSE  1480 

1580  J=(X-11)V8:P(C.J)=(P(C,J)+I)  MOD  8:G0SUB  1030 

1590  COLOR=(C.P(C,0).P(C,1),P(C,2)):GOTO  1480 

1600  M-cion 

1610  Z=0:M=((X-36)¥16)*8+(Y-2)¥16:COPY(0.0)-(255.211),0  TO  (0  0) 1 
1620  COPY(0.0)-(255. 210,0  TO  (0,0),  i:GOSUB  1300 
1630  'pset, line, box, bf, copy, ld.sv.iode,  scrful,paint,cirl,cir2, , , ,end 
1640  ON  H+l GOTO  1700, 1790, 1880, 1970,2060,3490,3640,2560.2190,2240.229 
0,2440,1470,1470,1470,4340 
- 1650  'cancel 

1660  COPY(0,0)-(255.211).0  TO  (0,0). 1 ： RETURN 
1670  'KAKUTEI 

1680  COPY(0,0)-(255.211).l  TO  (0.0).0: RETURN 
1690  'pset 

1700  A=USR(0):!F  PEEKC4HCA08)  THEN  G0SU8  1320:GOSUB  1660： GOTO  1700 
1710  IF  PEEK(&HCA07)=0  THEN  1700 
1720  GOSUB  1680 

1 730  X=PEEK(&HCA04) ： Y=PEEK(&HCA03) : PSET(X, Y),C:P=X: Q=Y 
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1740  A=USR(0):IF  PEEK(&HCA07)=0  THEN  1700 

1750  X=PEEK(&HCA04) : Y=PEEK(&HCA03) ： LINE(P,Q)-(X, Y) , C: P=X : Q=Y 

1760  IF  PEEK(&HCA07)=1  THEN  1740 

1770  GOTO  1700 

1780  'line 

1790  A=USR(0):IF  PEEKC&HCA08)  THEN  GOSUB  1320:GOSUB  1660： GOTO  1790 
1800  IF  PEEK(&HCA07)=0  THEN  1790 
1810  GOSUB  1680 

1820  X=PEEK(&HCA04) ： Y=PEEK(&HCA03) 
1830  COPY(0,0)-(255.211).0  TO  (0,0). 1 

1840  A=USR(0) ： P=PEEK(&HCA04) ： Q=PEEK(&HCA03) :LINE(X.Y)-(P,Q).C 
1850  IF  PEEKC&HCA07)  THEN  1830 
1860  GOTO  1790 
1870  'box 

1880  A=USR(0):1F  PEEK(&HCA08)  THEN  GOSUB  1320： GOSUB  1660:GOTO  1880 
1890  IF  PEEK(&HCA07)=0  THEN  1880 
1900  GOSUB  1680 

1910  X=PEEK(&HCA04) : Y=PEEK(4HCA03) 
1920  COPY(0.0)-(255, 21D.0  TO  (0,0), 1 

1930  A=USR(0) ： P=PEEK(&HCA04) ： Q=PEEK(&HCA03) : LINE(X. Y)-(P. Q),C,B 
1940  IF  PEEKC&HCA07)  THEN  1920 
1950  GOTO  1890 
1960  'box  full 

1970  A=USR(0):IF  PEEKC&HCA08)  THEN  GOSUB  1320： GOSUB  1660： GOTO  1970 
1980  IF  PEEK(&HCA07)=0  THEN  1970 
1990  GOSUB  1680 

2000  X=PEEK(&HCA04) ： Y=PEEK(&HCA03) 
2010  COPY(0,0)-(255,211),0  TO  (0.0). 1 

2020  A=USR(0) ： P=PEEK(&HCA04) : Q=PEEK(&KCA03) : L1NE(X, Y)-(P.Q) . C, B 
2030  IF  PEEKC&HCA07)  THEN  2010 
2040  LINE(X,Y)-(P,Q),C,BF:GOTO  1970 
2050  'copy 

2060  A=USR(0):IF  PEEKC&HCA08)  THEN  GOSUB  1320： GOSUB  1660： GOTO  2060 
2070  IF  PEEK(&HCA07)=0  THEN  2060 
2080  GOSUB  1680 

2090  X=PEEK(&HCA04) ： Y=PEEK(&HCA03) 
2100  COPY(0.0)-(255.2U),0  TO  (0,0). 1 

2110  A=USR(0) ： P=PEEK(&HCA04) ： Q=PEEK(&HCA03) :LINE(X, Y)-(P, Q).C,B 
2120  IF  PEEKC&HCA07)  THEN  2100 

2130  COPY(0.0)-(255, 210,0  TO  (0,0),  1:L1NE(X,Y)-(P,Q).C.B 

2140  A=USR(0):IF  PEEKC&HCA08)  THEN  GOSUB  1320： GOSUB  1660： GOTO  2060 

2150  IF  PEEK(&HCA07)=0  THEN  2140 

2160  I=PEEK(&HCA04) ： J=PEEK(&KCA03) ： GOSUB  1660:COPY(X,Y)-(P,Q). 1 TO  (1, 
J),l 
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2170  GOTO  2060 

2180  'screen  full  paint 

2190  LINE(0,0)-(255,211),C,BF 

2200  A=USR(0):IF  PEEK(&HCA08)  THEN  GOSUB  1320:GOSUB  1660： GOTO  1480 
2210  IF  PEEK(&HCA07)=1  THEN  1470 
2220  GOTO  2200 
2230  'paint 

2240  A=USR(0):IF  PEEK(&HCA08)  THEN  GOSUB  1320： GOSUB  1660： GOTO  2240 
2250  IF  PEEK(&HCA07)=0  THEN  2240 
2260  GOSUB  1680 

2270  X=PEEK(&HCA04) ： Y=PEEK(&HCA03) ： PA INT(X , Y) , C, D ： GOTO  2240 
2280  'Clrclel ひミタ * シ フカ） 

2290  A=USR(0):IF  PEEKC&HCA08)  THEN  GOSUB  1320： GOSUB  1660： GOTO  2290 
2300  IF  PEEK(&HCA07)=0  THEN  2290 
2310  GOSUB  1680 

2320  X=PEEK(&HCA04) ： Y=PEEK(iHCA03) 
2330  COPY(0.0)-(255.211),0  TO  (0,0), 1 

2340  A=USR(0) ： P=PEEK(&HCA04) ： Q=PEEK(&HCA03) ： l=ABS(X-P) ： J=ABS(Y-Q) 

2350  IF  I<J  THEN  I=J 

2360  IF  Y<I  THEN  I=Y 

2370  IF  X<I  THEN  I=X 

2380  IF  Y+I>211  THEN  1=211 

2390  IF  X+l>255  THEN  1=255 

2400  CIRCLE(X.Y), I,C 

2410  IF  PEEK(&HCA07)  THEN  2330 

2420  GOTO  2290 

2430  'Circle2(n ミタ 'シ t) 

2440  A=USR(0):IF  PEEKC&HCA08)  THEN  GOSUB  1320： GOSUB  1660： GOTO  2440 
2450  IF  PEEK(&HCA07)=0  THEN  2440 
2460  GOSUB  1680 

2470  X=PEEK(&HCA04) ： Y=PEEK(&HCA03) 
2480  COPY(0.0)-(255,2U),0  TO  (0.0). 1 

2490  A=USR(0) ： P=PEEK(&HCA04) :Q=PEEK(&HCA03) ： L I NE(X. Y)-(P, Q), C 
2500  IF  PEEKC&HCA07)  THEN  2480 

2510  GOSUB  1660：  I=ABS(X-P): J=ABS(Y~Q): IF  I<J  THEN  I=J 

2520  CIRCLE(X,Y).I,C 

2530  GOTO  2440 

2540  'Screenll  Bode  edit 

2550  COPY(0,0)-(255,211),0  TO  (0.0). 1： GOSUB 確: GOTO  2570 

2560  COPY(0.0)-(255.211),1  TO  (0.0).0: GOSUB  4000： PUT  SPRITE  2.(0.216) 

2570  A=USR(0) ： X=PEEK(&HCA04)-V ： Y=PEEK(&HCA03)-f 

2580  IF  PEEKC&HCA08)  THEN  2550  ELSE  IF  PEEK(&HCA07)=0  THEN  2570 

2590  IF  X<2  OR  X>68+16  OR  Y<2  OR  Y>128  THEN  2570 
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2600  IF  X>53  THEN  2760 
2610  IF  X>10  THEN  2660 
2620  'color 

2630  LINE(V+l.W+Ex8+l)-(V+10,W+E*8+9).8.B:E=(Y-2)¥8 

2640  L I NEC V+ 1 . ff+E*8+ 1 )-( V+ 1 0 . W+E*8+9) . &H88, B ： GOSUB  1090： GOTO  2570 

2650  *YJK 

2660  IF  X く 18  THEN  I=0:J=0:GOTO  2730 
2670  IF  X<24  THEN  I=1:J=0:GOTO  2730 
2680  IF  X<30  THEN  I=2:J=0:GOTO  2730 
2690  IF  X<36  THEN  I=3:J=0:GOTO  2730 
2700  IF  X く 44  THEN  I=0:J=1  ELSE  I=2:J=1 

2710  IF  Y>1 AND  Y<33  THEN  L=l ELSE  IF  Y>98  THEN  L=63  ELSE  2570 
2720  Y(E.1,J)=(Y(E, I,J)+L)  MOD  64： GOSUB  1090： GOSUB  1230： GOTO  2570 
2730  IF  Y>1 AND  Y<33  THEN  L=l ELSE  IF  Y>98  THEN  L= は ELSE  2570 
2740  Y(E,IJ)=(Y(E.I.J)+L)  MOD 16： GOSUB  1090： GOSUB  1230： GOTO  2570 
2750  ' i-cion 

2760  Z=0:M=((X-54)¥16)*8+(Y-2)¥16:COPY(0,0)-(255,211),0  TO  (0,0), 1 

2770  COPY(0,0)-(255,211),0  TO  (0,0), 1： GOSUB  1300 

2780  POKE  &HCA12,Y(E.0,0)*16+Y(E,2,1)  HOD  8： POKE  &HCA13, Y(E, 1,0)*16+Y( 

E,2.1)¥8 

2790  POKE  &HCAU,Y(E,2,0)*16+Y(E,0,1) KOO  8： POKE  &HCA15, Y(E,3,0)*16+Y( 
E.0.OV8 

2800  'pset, 1 ine, box, bf, copy. ld.sv.oode.  serf ul. paint, cirl, cir2, ,end 
2810  ON  M+l GOTO  2870, 2980, 3080, 3180. 32S0, 3490, 3640, 1470, 3450, 2560, 256 
0. 2560, 2560, 2560, 2560, 4340 
2820  'cancel 

2830  COPY(0,0)-(255, 21D.0  TO  (0.0). 1： RETURN 
2840  'KAKUTEI 

2850  COPY(0,0)-(255,211),1  TO  (0,0),0: RETURN 
2860  'pset 

2870  A=USR(0):1F  PEEK(&HCA08)  THEN  GOSUB  1360： GOSUB  2830： GOTO  2870 
2880  IF  PEEK(&HCA07)=0  THEN  2870 
2890  GOSUB  2850 

2900  X=PEEK(&HCA04) ： Y=PEEK(&HCA03) ： P=X ： Q=Y ： GOSUB  2950 

2910  A=USR(0):IF  PEEK(&HCA07)=0  THEN  2870 

2920  X=PEEK(&HCA04) ： Y=PEEK(&HCA03) ： GOSUB  2950:P=X:Q=Y 

2930  IF  PEEK(&HCA07)=1  THEN  2910 

2940  GOTO  2870 

2950  IF  (VDP(-2)  AND  1)=1  THEN  2950 

2960  POKE  &HCA16,P:P0KE  &HCA17,Q:P0KE  &HCA18,X:P0KE  &HCA19, Y: A=USR2(0) 
： RETURN  1 
2970  'line 

2980  A=USR(0):IF  PEEKC&HCA08)  THEN  GOSUB  1360： GOSUB  2830： GOTO  2980 
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2990  IF  PEEK(&HCA07)=0  THEN  2980 
3 画 GOSUB  2850 

3010  POKE  4HCA16.PEEK(&HCA04):POKE  &HCA17,PEEK(&HCA03)  " 
3020  COPY(0.0)-(255,211),0  TO  (0,0), 1  ' 
3030  A=USR(0):POKE  4HCA18,PEEK(&HCA04):POKE  &HCA19.PEEKC&HCA03) 
3040  IF  (VDP(-2)  AND  1)=1  THEN  3040  ELSE  A=USR2(0)  \ 
3050  IF  PEEKC&HCA07)  THEN  3020  ！ 
3060  GOTO  2980  ' 
3070  'box 

3080  A=USR(0):1F  PEEKC&HCA08)  THEN  GOSUB  1360： GOSUB  2830： GOTO  3080  1 
3090  IF  PEEK(&HCA07)=0  THEN  3080 
3100  GOSUB  2850 

3U0  POKE  &HCA16,PEEK(&HCA04):POKE  &HCA17.FEEKC&HCA03) 
3120  COPY(0.0)-(255.211),0  TO  (0,0), 1 

3130  A=USR(0):POKE  &HCA18,PEEK(4HCA04):POKE  &HCA19, PEEK(&HCA03)  I 
3140  IF  (VDP(-2)  AND  1)=1  THEN  3140  ELSE  A=USR3(0)  画 
3150  IF  PEEKC&HCA07)  THEN  3120 
3160  GOTO  3080 
3170  'box  full 

3180  A=USR(0):iF  PEEK(&HCA08)  THEN  GOSUB  1360： GOSUB  2830： GOTO  3180 
3130  IF  PEEK(&HCA07)=0  THEN  3180 
3200  GOSUB  2850 

3210  POKE  &HCA16,PEEK(&HCA04):POKE  &HCA17.PEEKC&HCA03) 
3220  COPY(0,0)-(255,211),0  TO  (0.0), 1 

3230  A=USR(0):POKE  &HCA18,PEEK(&HCA04):POKE  &HCA19rPEEK(&HCA03) 

3240  IF  (VDP(-2)  AND  1)=1  THEN  3240  ELSE  A=USR3(0) 

3250  IF  PEEKC&HCA07)  THEN  3220 

3260  IF  (VDPC-2)  AND  0=1 THEN  3260  ELSE  A=USR4(0) 

3270  GOTO  3180 

3280  'copy 

3230  A=USR(0):IF  PEEK(&HCA08)  THEN  GOSUB  1360： GOSUB  2830： GOTO  3290 
3300  IF  PEEK(&HCA07)=0  THEN  3290 
3310  GOSUB  2850 

3320  POKE  &HCA16,PEEK(4HCA04):POKE  &HCA17.PEEK(&HCA03) 
3330  COPY(0,0)-(855.211),0  TO  (0,0), 1 

3340  A=USR(0):POKE  &HCA18,PEEK(&HCA04):POKE  &HCA19,PEEK(&HCA03) 

3350  IF  (VDPC-2)  AND  0=1 THEN  3350  ELSE  A=USR3(0) 

3360  IF  PEEK(&HCA07)  THEN  3330 

3370  COPY(0,0)-(255,211),0  TO  (0,0), 1： 

3380  IF  (VDP(-2)  AND  1)=1  THEN  3380  ELSE  A=USR3(0) 

3390  A=USR(0):IF  PEEKC&HCA08)  THEN  GOSUB  1360： GOSUB  2830： GOTO  3290 

3400  IF  PEEK(&HCA07)=0  THEN  3390 

3410  I=PEEK(&HCA04) ： J=PBEK(&HCA03) ： GOSUB  2830 


64 


3 グラフィック 機能 パワフル 活用 


3420  COPY(PEEK(&HCA16).PEEKUHCA17))-(PEEK(&HCA18)+3.PEEK(&HCA19)),0  T 

0  (I.J).l 

3430  GOTO  3290 

3440  'screen  full  paint 

3450  POKE  &KCA16.0:POKE  &HCA 17.0： POKE  &HCA18.252:P0KE  &HCA19,211:A=USR 
4(0) 

3460  A=USR(0):IF  PEEKC&HCA08)  THEN  GOSUB  1360:GOSUB  2830： GOTO  2570 
3470  IF  PEEK(&HCA07)=1  THEN  2560  ELSE  3460 
3480  'load 

3490  SET  PAGE  0,0： SCREEN  0： COLOR  15,0:CLS 
3500  PRINTnLOAD  OK(Y/N)?"; 

3510  A=USR1(0):A$=INPUT$(1):IF  A$<>"Y"  AND  A$<>"y"  THEN  3620  ELSE  PRIN 
T  A$ 

3520  COLOR  8:PRINT"SET  A  GRAPHIC  DISK  AND  HIT  A  KEY!": COLOR 15 

3530  A=USR1 (0) ： A$= I NPUT$( 1 ) ： PR 1 NT ： F I LES"x. P 1 C" : PR 1 NT 

3540  INPUT"File  naae:";F$: I=INSTR(F$.".B): IF  I  THEN  F$=LEFT$(F$. 1-1) 

3550  PR I NT ： PR I NT"Sure(Y/N)?" ： A$= I NPUT$( 1 ) ： I F  A$<>"Y"  AND  A$<>"y"  THEN 

3500 

3560  SCREEN  10+S 

3570  A$=F$+n. pic": COPY  A$  TO  (0.0). 1： CLOSE 
3580  A$=F$+".rgb":COPY  A$  TO  H: CLOSE 

3590  FOR  1=0  TO  15:P(I,0)=H(I)¥100:P(I,1)=H(1)¥10  MOD  10:P(I,2)=H(1) H 
OD 10 

3600  COLOR=(!,P(I.0).P(I.l),P(I,2)):NEXT 

3610  OPEN  "grp:"  FOR  OUTPUT  AS  «l:GOTO  3760 

3620  SCREEN  10+S:COPY(0,0)-(255,211), 1 TO  (0,0).0:GOTO  3760 

3630  'save 

3640  SET  PAGE  0.0： SCREEN  0： COLOR  15,0:CLS 
3650  PRINT"SAVE  OK(Y/N)?"; 

3660  A=USR1(0):A$=INPUT$(1):IF  A$<>"Yw  AND  A$<>"y"  THEN  3750  ELSE  PRIN 
T  A$ 

3670  COLOR  8:PRINT"SET  A  GRAPHIC  DISK  AND  HIT  A  KEY!":COLOR 15 

3680  A=USR1(0) ： A$= I NPUT$( 1 ) : PR  I NT : F I LES"». P 1 C" : PR  I NT 

3690  INPUFFile  na 隠 e:";F$:  1=1NSTR(F$,"."): IF  I  THEN  F$=LEFT$(F$.  1-1) 

3700  PRINT:PRINT"Sure(Y/N)?":A$=INPUT$(l):lF  A$<>"Y"  AND  A$<>"y"  THEN 

3650 

3710  SCREEN  10+S:FOR  1=0  TO  15:H( 1 )=P(I , 0)*100+P( I , 1)*10+P( I , 2) INEXT 

3720  A$=F$ +" .pic": COPY(0 , 0)-(255 , 21 1) , 1 TO  A お CLOSE 

3730  A$=F$+B.rgb":COPY  H  TO  A$: CLOSE 

3740  OPEN  "grp:"  FOR  OUTPUT  AS  81:G0T0  3760 

3750  SCREEN  10+S:COPY(0,0)-(255.211). 1 TO  (0,0), 0 

3760  ON  S+l GOTO  1470,2560 

3770  'screen 10 鼴 ode 
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3780  SCREEN 10: SET  PAGE 1. 1:S=0: COLOR  15,0： X=PEEK(&HCA04) ： Y=PEEK(&HCA0 
3) 

3790  V=6-(X>127)*168:W=8-(Y>129)x72:LINE(V,W)-(V+69.W+130).0,BF 
3800  PSET(V+13.W+115).0:PRINT  #1,"RGB" 

3810  PSET(V+13.W+1),0:PRINT  #l,MBDRM:PSET(V+13,W+20),0: PRINT お，" COL" 
3820  PSET(V+21,W+123),0:PRINT  » 1 , ： PSET( V+2 1 , W +39) , 0： PR  I  NT  81,"+" 
3830  L1NE(V,W)-(V+69.W+130), 15.B:LINE(V+ll.W)-(V+35.f+130).  15.B 
3840  L I  NEC V+ 1 1 . W+46)-(V+35. S+ 122) . は, B 
3850  LINE(V+1 1 . W+l 14)-(V+35, W+l 14). 15 
3860  LlNE(V+19，ff+46)-(V+27,l?+122), は, B 

3870  LINE(V+ll.B+8)-(V+35.W+17),15.B:LINE(V+ll,W+19)-(V+35.W+19),15 
3880  LINE(V+11,W+27)-(V+35.W+36),15.B:LINE(V+11,W+38)-(V+35,W+38),15 
3890  1=0： FOR  J=W+2  TO  W+128  STEP  8:LlNE(V+2, J)-(Y+9. J+6), I, BF: l=I+i:NE 
XT  J 

3900  FOR  J=tt+2  TO  W+128  STEP 16： FOR  I=V+37  TO  V+68  STEP 16 
3910  LINE(I,J)-(1+14.J+14),15,BF:NEXT  I.J 
3920  RESTORE  3970： COLOR  4.15 

3930  FOR  l=V+38  TO  V+68  STEP 16: FOR  J=W+6  TO  W+128  STEP 16 

3940  READ  A$:PSET(I, J),0:PRINT  »1,A$:NEXT  J, I : COLOR  15.0 

3950  LINE(V+68.W+1)-(V+68.W+129).0:LINE(V+52,W+1)-(V+52,W+129),0 

3960  COSUB  1030:GOSUB  U90:GOSUB  1210:POKE  &KCA 1 A, 0： RETURN 

3970  DATA  "Ps". "Ln". "Bx", "Bf ", "Cp". "Ld". "Sv". "Md" 

3980  DATA  "Fl"."Pa","Cl","C2","  ","  ","En" 

39S0  'screen  oode 11 

4000  SCREEN  IKSET  PAGE 1 , 1 ： S=l ： X=PEEK(&HCA04) ： Y=PEEK(&HCA03) 

4010  V=6-((X>127)»152):W=8-((Y>129)x72) 

4020  COLOR  248.8:LINE(V.*)-(V+86.W+130).8.BF 

4030  PSET(V+23,W+115).8:PRINT  ftl/Y  JK" 

4040  PSET(V+30,W+123),8:PRINT  81,"-":PSET(V+30,W+l),8:PRINT 

4050  LINE(V.W)-(V+87. W+130),. B:LINE(V+11. W)-(V+53.W+130) , , B 

4060  L!NE(V+1 1 , W+8)-(V+53,W+122) , , B: L1NE(V+ ll.W+1 14)-(V+53, W+l 14) 

4070  L 1 NE(V+37,W+8)-(V+45, W+122) , , B 

4080  F=E:FOR  E=0  TO は: GOSUB  1230： NEXT :E=F 

4090  RESTORE  4 170： COLOR  248,8 

4100  FOR  J=W+2  TO  W+128  STEP 16： FOR  I=V+55  TO  V+85  STEP 16 

4110  LINE(I.J)-(I+14.J+14)..BF:NEXT  I. J ： COLOR  72,248 

4120  FOR  I=V+56  TO  V+85  STEP  16:F0R  J=W+6  TO  W+l 28  STEP 16 

4130  READ  A$:PSET(I,J),0:PRINT  SI, A$: NEXT  J, I ： COLOR  248,8 

4140  L I NECV+86 . W+ 1 )-( V+86, W+ 129) , 8 ： L I NE(V+70. W+ 1 )-( V+70, W+ 1 29) . 8 

4150  L I NE(V+ 1 , W+(E*8)+1 )-(V+10, I +(E*8)+9) ,136, B: GOSUB  1090 

4160  GOSUB  1090:GOSUB  1230： POKE  &KCA 1 A, 1： RETURN 

4170  DATA  wPs". MLn", "Bx", "Bf "Cp", "Ld". "Sv", "Md" 

4180  DATA  "Fi"."  "."  "."En" 
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4190  'RGB/T レプト 

4200  RESTORE  4230： FOR 1=0  TO は: READ  J:P(I,0)=J¥100:P(I, 1)=(J¥10)  NOD 
10 

4210  P(I.2)=J  HOD  10:COLOR=(l,P(I,0).P(I.l)tP(I,2)):NEXT 
4220  FOR  1=0  TO 15： FOR  J=0  TO  3:Y(I, J,0)=I:Y(I,J,  1)=0:NEXT  J.CRETURIf 
4230  DATA  0,0.161,373.117.237.511,267.711.733,661.663.141.625,555,777 
4240  'sprite  pattern 

4250  RESTORE  4260： FOR  I=&HF000  TO  &HF04F:READ  MVPOKE 1, A: NEXT: RETURN 

4260  DATA  252, 144, 136, 196, 162, 145, 10, 4, 0, 96, 1 12, 56, 28, 14, 4, 0 

4270  DATA  63,9. 17.35,69, 137.80.32.0,6. 14.28.56. 112.32.0 

4280  DATA  4. 10, 145. 162, 196, 136. 144.252.0,4, 14,28,56. 112.96,0 

4290  DATA  32,80, 137,69,35, 17, 9, 63, 0,32,1 は， 56, 28, 14,6,0 

4300  DATA  255, 199, 187, 187, 171, 147, 197.255,0,56,68,68.84, 108,58,0 

4310  'ON  ERROR 

4320  IF  ERR<>53  THEN  ON  ERROR  GOTO  0： COLOR  15,4,7:END 
4330  COLOR=NEW:CLOSE: RESUME  3610 
4340  ，  END 

4350  CLOSE: CLS: COLOR 15. 4， 7: END 
4360  ' aach i ne  language 

4370  RESTORE  4380： FOR  I=&HCA00  TO  &HCDDF:READ  K$:K=VAL("&H"+K$):POKE  I 
,K:NEXT  I ： RETURN 


4380 

DATA 

C3, 

42, 

CA, 

00. 

00. 

00. 

00. 

00, 

00. 

C3. 

80. 

CB. 

C3， 

09. 

CD. 

C3 

43S0 

DATA 

73. 

CD. 

00, 

00. 

00. 

00. 

00. 

00, 

00, 

00. 

00, 

M, 

00. 

00. 

00, 

m 

4400 

DATA 

00, 

00, 

FF, 

00, 

FF, 

01, 

00, 

01, 

01, 

01, 

01, 

M, 

01. 

FF, 

00, 

FF 

4410 

DATA 

FF, 

FF. 

FA, 

00, 

FA, 

06. 

00, 

06, 

06, 

06, 

06. 

00. 

06. 

FA, 

00. 

FA 

4420 

DATA 

FA, 

FA. 

F5, 

,C5. 

D5. 

E5. 

DD. 

E5, 

,FD, 

E5, 

AF, 

CD. 

D5. 

00. 

B7, 

28 

4430 

DATA 

ID, 

,87. 

5F. 

,3E, 

06. 

CD. 

41, 

01, 

21, 

30, 

CA, 

CB, 

,47, 

28, 

03, 

,21 

4440 

DATA 

20, 

CA, 

16, 

,00. 

,19, 

7E, 

23, 

66, 

,6F, 

22, 

05, 

CA, 

,18, 

19, 

3E, 

0C 

4450 

DATA 

CD, 

風 

00, 

,3E, 

0D, 

CD, 

DB, 

戴 

CB, 

2F, 

,32, 

,06, 

CA, 

3E, 

0E, 

CD 

4460 

DATA 

DB, 

CB, 

,2F, 

32, 

05, 

CA, 

3E, 

01, 

CD, 

D8, 

,B7, 

28. 

02, 

,3E 

4470 

DATA 

01, 

32, 

07, 

,CA, 

3E, 

03, 

CD, 

,08, 

,00, 

,B7, 

28, 

,02, 

,3E, 

01. 

32, 

08 

4480 

DATA 

CA, 

,3E, 

,m, 

CD, 

,41, 

,01, 

CB, 

,47, 

,20, 

,05, 

,3E, 

,01, 

,32, 

,07, 

CA, 

3E 

44S0 

DATA 

04, 

CD, 

41, 

,01, 

,CB, 

,5F, 

,20, 

05, 

,3E, 

,01, 

,32, 

,08, 

,CA, 

3A, 

,05, 

CA 

4500 

DATA 

4F, 

,2A, 

03, 

,CA, 

,5C, 

,AF, 

,47, 

,57, 

,67, 

,CB, 

,79, 

,20, 

,0A, 

,03, 

,7D, 

,FE 

4510 

DATA 

D4, 

,38, 

,0F, 

,3E, 

,D3, 

,18, 

,0B. 

,79, 

,ED, 

,44, 

,4F, 

,B7, 

,ED, 

,42, 

,7D, 

30 

4520 

DATA 

01, 

,AF, 

32, 

,03, 

,CA, 

,EB, 

3A, 

,1A, 

,CA, 

,B7, 

,28, 

,05, 

,3A, 

,1B, 

,CA, 

,B5 

4530 

DATA 

6F, 

,3A, 

06, 

,CA, 

,4F, 

,06, 

M, 

,CB, 

,79, 

,20, 

,0A, 

,09, 

,7C, 

,B7, 

,7D, 

,28 

4540 

DATA 

0F, 

,3E, 

FF, 

,18, 

,0B, 

,79, 

,ED, 

,44, 

,4F, 

,B7, 

,ED, 

,42, 

,7D, 

,30, 

,01, 

,AF 

4550 

DATA 

32, 

,04, 

,CA, 

,3A, 

,1A, 

,CA, 

,B7, 

,28, 

,0F, 

,3A, 

,04, 

,CA, 

,5F, 

,E6, 

,FC, 

,32 

4560 

DATA 

04, 

,CA, 

,7B, 

,E6, 

,03, 

,32, 

,1B, 

,CA, 

,2A, 

,03, 

,CA, 

,70, 

,FE, 

,CB, 

,38, 

,15 

4570 

DATA 

D6, 

,09, 

6F, 

,7C, 

,FE, 

,F7, 

,38, 

,07, 

,D6, 

,08, 

,67, 

,3E, 

,06, 

,18, 

,14, 

,24 

4580 

DATA 

3E, 

,04, 

,C3, 

,53, 

,CB, 

,7C, 

,FE, 

,F7, 

,38, 

,07, 

,D6, 

,08, 

,67, 

,3E, 

,02, 

,18 

4590 

DATA 

02, 

,24, 

,AF, 

,22, 

,77, 

,CB, 

,22, 

,7B, 

,CB, 

,32, 

,79, 

,CB, 

,3C, 

,32, 

,7D, 

,CB 
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4600  DATA  21 , 77, CB, 1 1 , 00, FA, 01 , 08. 00. F3. CD. 5C, 00, FB. FD, El 
4610  DATA  DD,E1.E1,D1.C1.F1,C9.00.00.00.00.00.00.01.00.D8 
4620  DATA  F5. C5. D5. E5.  DD.  E5.  FD.  E5.  ED. SB. 16, CA. 3A. 19. CA. 92 
4630  DATA  CA,A9,CC,30，08,ED,44,21,00,FF,C3,MJ,CB,21,00，01 
4640  DATA  22, 20, CA, 3C, 47, 32, ID, CA, 3A. 18, CA, 93. CA, BF. CC. 30 
4650  DATA  08.ED,44,21,FC,FF,C3.BC.CB.21.04,00.22. 1E.CA.CB 
4660  DATA  3F.CB.3F.3C.32. 1C.CA.B8.DA, 18,CC,67,68,CDtB6,CD 
4670  DATA  7C, B7. 28, 29, 3A, ID, CA , 94, FE, 0E, 38, 2C, CB, 3F, 4F, 45 
4680  DATA  E5, CD, 65, CC. El . 4C, 45. 04. E5, CD. 65. CC.  El . 3A. ID. CA 
4690  DATA  94. CB. 3F. CE, 00. 4F. 45. CD. 65. CC. C3, 6E. CB, 3A, ID. CA 
4700  DATA  4F, 45, CD, 65. CC, C3, 6E, CB, 4F, 45,  E5, CD, 65, CC, El , 4C 
4710  DATA  45f04,CO,65tCC,C3,6E,CB,60.6F,CD,B6,CD,7C.B7.28 
4720  DATA  29,3A, 1C,CA,94.FE,02.38.2C.CB.3F,4F,45.E5,CD,87 
4730  DATA  CC,E1,4C.45.04,E5.CD.87,CC,E1.3A, 1C.CA.94.CB, 3F 
4740  DATA  CE.00.4F.45.CD.87.CC.C3. 6E.CB.3A, lC,CA,4F,45fCD 
4750  DATA  87,CC,C3,6E,CB.4F,45,E5,CD,87.CC.E1.4C.45,04.CD 
4760  DATA  87.CC.C3.6E.CB.C5.C5.21. 12.CA,01,04,00,D5,F3.CD 
4770  DATA  5C,00,FB>O1,2A. 1E.CA. 19.EB.C1. 10,EA,2A.20,CA. 19 
4780  DATA  EB,C1,0D,C2.65.CC,C9.C5,C5,21, 12.CA, 01,04, 00.D5 
4790  DATA  F3.CD,5C,00,FB,D1,2A.20.CA. 19.EB.C1, 10.EA.2A. IE 
4800  DATA  CA. 19. EB, CI . 0D. C2. 87. CC. C9. 3A, 18. CA. 6F. 93. 30. 03 
4810  DATA  ED. 44. 5D. CB, 3F. CB. 3F. 3C. 47. CD, C5.CC, C3. 6E. CB. CD 
4820  DATA  F2. CC, C3. 6E. CB. EB, F3. CD, 71 , 01 , F3, 3A, 12, CA, CD, E7 
4830  DATA  CC.3A, 13,CA,CD,E7,CC,3A, 14,CA,CD,E7,CC,3A, 15.CA 
4840  DATA  CD,E7,CC,10,E6.FB.C9,C5.ED.4B,07.00.ED.79.C1.C5 
4850  DATA  C1.C9.C5.21. 12,CA.01.04,00.D5.F3.CD.6C.00.FB.D1 
4860  DATA  2A.20, CA. 19, EB.Cl , 10, EA. C9. F5.C5, D5. E5, DD, E5, FD 
4870  DATA  E5, ED, 5B, 16, CA, 3A, 19, CA, 92, CA,  A9, CC, 30, 07, ED. 44 
4880  DATA  21.00.FF. 18.03. 21. 00,01, 22.20.CA.3C.47.32. 1D.CA 
4890  DATA  3A.18.CA.6F.93,CA.BF.CC,30.03.ED,44.5D.CB.3F,CB 
4900  DATA  3F, 3C, 47. 32, 1C, CA, D5, CD. C5, CC, Dl , 3A, 1C, CA, 47, 3A 
4910  DATA 19, CA, 57, CD.C5, CC, 3A, 1D.CA.47, ED, 5B, 16, CA. CD, F2 
4920  DATA  CC.3A, 1D.CA.47.3A, 17.CA.67.3A.  18.CA.5F.CD.F2.CC 
4930  DATA  C3. 6E, CB, F5, C5. D5. E5, DD, E5. FD. E5. ED. 5B, 16, CA, 2A 
4940  DATA  18,CA,7C.92>CA,A9,CC,30t03lED>44,54,3C,4F,7D,93 
4950  DATA  28, 1A,30,03,ED,44,5D,C8.3F.CB,3F,3C,47.C5.D5.CD 
4360  DATA  C5,CC.D1,14,C1,0D.C2.9D,CD,C3,6E>CB,41. 21. 00,01 
4970  DATA  22.20.CA.C3.BF.CC.7C.BD.38. U.97.4F.06.08.CB.21 
4980  DATA  CB.24, 17,BD,38,03,95，CB,C1, UJ,F3,67,69,C3,2E,00 
4990  DATA  C9,CD.79,C9,CD.99,CE.38,22.28,20.CD.99.CE,28.21 
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^  MSX 漢字 ドライバ 

これまで MSX では， CPU の 処理 能力 や， 画面 表示 能力から， 日本語 処理 
が 苦手 だ とされて きました. し 力 、し， MSX-Write の 出現に よって， MSX で 
も 十分 漢字 を 扱える こと 力、' 突 証 され， その後 も 日 本 語 対応の ァ プリ ケ一 ショ 
ン 'ソフトウェアが いくつか 登場して います. ヒ ころが, これらの ソフト ゥ^ 
ァは， それぞれ 独自に 日本語に 対応して いるた め， 日本語 処理が 各ソフ ト ゥェ 
ァ 間で まちまちでした. そのため， ユーザーが 直面す る 部分 も ソフトウェア 
ごとに 異なり， たとえば 漢字の 入力 方法な ども， それぞれの ソフトウェアで 
用意され た 方式に 従わなければ なりませんでした. 

また， ユーザ一 が プログラム を 自作す る 場合 も， 日本語 処理の 部分 を 1 か 
ら 作って いかねば ならず， たいへんな 労力 を 必要と しました. とくに BASIC 
では メモリ 容 S の 制限 も あるた め， 普通に プログラム を 組んだ 場合に は， 日 
本 語に 対応した 実用的な アプリ ケ一シ ヨン' ソフ ト ウェア はとても 望め ませ 
ん でした. 

そこで， これらの 日本語 処理 を アプリケーションから 切り放して 標準化し， 
システム • ソフ ト ウェアと して 組み込み， 他の さまざまな アプリ ケ ーショ ンか 
ら 簡単に 漢字 を 利用で き るよう にした も のが MSX 漢字 ドライ バ です. 

こ の MSX 漢字 ドラ イノ、' は， VRAM128K ま た は VRAM64K の MSX2, 
MSX2+ いずれの 機種で あっても 動作す るよう に 設計され ています. また， 
MSX- DOS,  MSX-D0S2,  BASIC のい かなる 環境に おいても 動作 します. で 
すから， BASIC の プログラム や， DOS 上の アプリ ケ ーショ ン から 漢字の 入 出 
力 を 行う ことができます. 

こ の 漢字 ドライ バは， MSX で 決め ら れた 文字 表示 ル一チ ン を 使って 文， 
表示 を 行って いる （BIOS コール を 使用して 文字 表示 を 行って いる） プロ ダラ 
ム であれば， そのまま 利用す る ことができます. BASIC の プログラムから 
は， 特殊な こと をして いない かぎり， まず 問題な く 利用で きる でしよう. 
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> 従 来 


アプリケーション 


システム 


L 一 ザ 一 


曰 

ま 

m 

処 

理 

日本語 処理の 部分 も アプリケーション 側で 用 怠 する 
必要が ある. しかも ユーザー は アプリケーション ご 
とに 異なる 涣字 入力 法 を 強いられる. 


アプリケーション 


參澳字 ドラ イノく 

利用 時 


t 

入出力に BIOS を 利用し 
ている もので あれば， 
その ま ま 使える. 


システム 


L 一 ザ 一 


曰 

本 

m 

処 

理 

システム 側に 組み込む ことによ リ， ユーザー は どの 
アプリケーションに も 使い tit れた涣 字 入力 法 を 利用 
でき る. 


図 3.1 漢字 ドラ イノ、' 概念 図 


1 バイ 卜 文字と 2 バイ 卜 文字 


こ こ で， MSX 漢字 ドライ バを 説明す る 前に， パソ コン 上で 日本語 を 扱うた 
めに 必要な 知識と して， 1 バイ ト 文字と 2 バイ ト 文字に ついて 述べて おき ま 
しょう. 

園 MSX 内部での 文字の 取り扱い 

コンピュータの 内部で は， すべての 情報が 2 進数で 表現され ている という 
こと はよ く ご存じ だと 思います. この 2 進数で 表現で きる 情報量の 単位 を 
ビッ ト といい ます. 2 進数 1 桁で 表わせる 情報量が 1 ビット， 2 析で 表わせる 
情報量が 2 ビットです. ちなみに 1 ビット は 0 と 1 の 2 つの コード， つまり 
2 種類の 状態 を， 2 ビットで は 0， 1， 10, 11 と 4 つの コード， つまり 4 種類 
の 状態 を 表わす ことができます. 一般に， N ビットで 表わせる 情報量 は 2 の 
N 乗と いう ことになります. 
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MSX では， 基本的に 8 ビッ ト 単位で 情報 を 扱います. ですから， MSX で 
文字 を 処理す るた めに は， この 8 ビッ トの各 コードに アルファべ ッ トゃ 数字， 
カタ カナな どの 各 文字 を 対応 させて 扱わなければ なりません. 具体的に は， 

noooooi" の コードに は や a" が, nooooio" の コードに は *b" が 割り 当 下 
られ ている といった 具合いです. 

ところで， コンピュータの 世界で は 8 ビット を さらに 1 つの 単位と し， バ 
ィ トと 呼んで いるた め， これらの 8 ビッ トで 表現され る 文字 を 1 バイ ト 文字 
と 呼んで います （普通 1 バイトの コード は 2 桁の 16 進数で 表記 されます). 


1 バイト （8 ビッ ト） 文字コード 
01000001B  O  41H  O  [AJ 
2 進コー ド i«i コー ド 対応す る 文字 


図 3.2 1 バイト （8 ビット） 文字コード 

このように 1 バイ トの コードと 文字 を 対応させる ものに は， いくつか 規格 
が あり， 代表的な ものに 米国の ASCII コード， 日本の JIS コードな どが あり 
ます. 

MSX で 採用 している 文字コード は， JIS に 準拠し た 拡張 文字 コードと 呼ば 
れる もので， JIS コードに 比べ， グラフィック ♦ キャラクタ や ひらがなの 部分 
が 拡張され ています （表 3.1). 

このうち， 一部の グラフ ィ ック' キャラクタと 漢字に ついては， 1 バイ トの 
コードに 収まって いません. たとえば， 月と いう 文字 は 1H と 41H の 連続で 
表わされます. つまり 2 バイトで 1 文字 を 表現して います. このような 文字 
を 2 バイ ト 文字と 呼びます. 

1 バイ トの 情報 S: では， 最大で も 256 種類の 文字し か 表現で きません. これ 
では， 数万 種類と もい われる 膨大な 文字 数 を 誇る 漢字 を 表現す るに は， あま 
りに も 少なす ぎます. そこで 既存の 1 バイ ト 文字との 互換性 を 保ちながら L 
漢字 を 表現す るた めに 考えられ たの 力、'， 2 バイ トを一 組に して 1 つの 文字 を 
表現す る 2 バイ ト 文字 コー ド です. これにより， 情報量 は 16 ビッ ト になる の 
で， 理論的には 2 の 16 乗で 65536 通りの 文字 を 表現で きる ことになります. 
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CHR$(&H41)=、、A" になる. 

グラフィック キャラクタ コード は 最初に CHR$(1) を 付ける. 
CHR$(1)+CHR$(&H41)  =  * 月 * 


表 3.1 MSX の JIS 準拠 拡張 文字コード 表 

國 2 バイ 卜 文字の 表現 

さて， この 1 バイ ト 文字と 2 バイ ト 文字が それぞれ 独立した 環境に あれば 
問題ない のです が， それらが 同じ 環境に 混在す ると， 処理が 難し くなります. 
た と えば， 文字列の 先頭の 1 バイ 卜の コ一 ドがぁ ると き， それが 1 バイ ト 文 
字コ一 ド である 力、 それと も 2 バイ ト 文字 コ一 ドの 1 バイ ト 目で あるか を 判 
別し なければ なり ません. 

MSX 漢字 ドライバで 使われて いる 2 バイ ト 文字 コー ドは， JIS の 漢字 コー 
ドを もとに 作られた シフ ト JIS コ一 ド （よ り 正確に は， さらに シフ ト JIS を 
もとにした MS 漢字 コード） と 呼ばれて いるものです. この 文字コード は， も 
ともと 16 ビット • パソ コンの 世界で 有名 な MS-DOS で 使われて い る もので 
す. 
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シフ ト JIS コード は， JIS の 1 バイ ト コードで は 未定義の コード （81H 
~9FH,  EOH〜FEH) を 1 バイ ト 目に 使用す る ことによ り， 1 バイ ト 文字と 2 
バイ ト 文字 を 識別す るよう にして います. 


J ほの 1 バイ ト コードで は 未定義 
1  1 


文字コード … 

AO 

81 

26 

61 

26 

E0 

3B 

 一  ^  z 

2 バイト 文字  2 バイト 文字 

とみな す  とみな す 

図 3.3 シフト JIS コードの しくみ 


MSX では， シフ ト JIS コ一 ドの 1 バイ ト 目に 使用す るコ一 ドに， ひらがな 

や グラフ ィ ック 'キャラクタ か * 定義して あり ます. した 力、' つて， ？ m 字 ドラ イノ、 * 

を 使って 2 バイ ト 文字 を 利用して いる 場合に は， これらの ひらがな ゃグラ 
フィック 'キャラクタ を 使う こと はでき なくなります. また， MSX 独自の 2 
バイ ト 半角の 漢字な ど （1H で はじまる もの） も 表示で き ません. 


r^j^" 表示 1 [^回 [^回 囚 e 

「 文字コード i  -|も8|9八|巧43141154レ' 


MSX 漢字 ドライバ 
利 用 時 


L  2 バイト 文字と 判 K される 
図 3.4 澳字 ドライバ 利用 時の 1 バイ ト 文字の ひらがなの 扱い 

しかし， ひらがな や グラフ ィ ック' キャラクタ は 2 バイ ト 文字で も 用意され 
ている ので， そちら を 使えば， まず 問題はないでしょう. 

MSX 漢字 ドライバ 起動時の 画面 出力で は， 1 バイ ト 文字と 2 バイ ト 文字の 
大きさが 異なり， 通常 1 バイ ト 文字 は， 横幅が 2 バイ ト 文字の 半分の サ イス 
で 表示され ます. そのため， 1 バイ ト 文字 は 半角 文字， 2 バイ ト 文字 は 全角 文 
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字， あるいは 単に 半角， 全角と 呼ばれて います. 

現在， JIS および シフト JIS で 定義され ている 2 バイト 文字に は， ひらが 
な， カタ カナ， 数字， アルファベット， 各種 記号お よび 使用 頻度 高い 漢字 約 
3000 文字 か ら なる JIS 第 1 水準， そして 第 1 水準 ほ どで はないけれ どや は り 
使う ことの 多い 漢字 を 集めた JIS 第 2 水準と いう 2 つの レベルが あります. 

MSX 漢字 ドライバ は， JIS 第 2 水準まで サポート してい ますので， 第 2 水 
準 漢字 ROM を 装備して いれば， これらの 文字 を 画面に 出力す る ことができ 
ます. 


MSX 漢字 ドライ 八の 機能 


MSX 漢字 ドライバ は， BIOS と 同 レベルに 位置す る システム. ソフ ト ゥェ 
ァで， 漢字 を 表示したり 入力した りする ための 色々 な 処理 を， 一手に 引き 受 
けて くれる プログラムです. 漢字 ドライバ を 起動す ると 漢字 ドライバ は 
SCREEN モ一 ドを グラフ ィ ック モー ドに 変更し 漢字 フォ ン ト を喾き 込める 
状態に します. そして， BIOS の 文字 出力 ルー チンに 送られた デー タ を 受け取 
り， その 文字が 2 バイト 文字 か 1 バイト 文字 か を 判別して， その 文字の フォ 
ン トを グラフ ィ ック 画面に 喾き 込む という 処理 をして います. 

BASIC や DOS 側か ら 見れば， 今までと 同じ BIOS による 文字 出力 をす る 
だけで， 漢字の 出力が 可能になる わけです. また， 画面 出力 だけでなく， 漢 
字 プリンタへの 出力 も サボ一 ト してい ますので， 漢字 を 含んだ プログラム リ 
ス ト を プリンタに 出力す る こと もで きます. 

漢字の 入力に は， キー ボー ド から 入力した 文字 を 漢字に 変換して くれる， 
日本語 入力 フロン ト プロセッサ はなく て はならない 存在です. 漢字 ドライバ 
を 使えば 簡単に 日本語 入力 フロン ト プロセッサ を 呼び出して， 漢字変換 を 
使って 文字 を 入力す る こと 力、' 可能に なります. 

この 機能 を 実現す るた めに， 漢字 ドライバ は キー入力 をつ ねに 監視して 日 
本 語 入 カフ 口 ン ト プロセッサの 起動の 合図 を 待って います. フロント プロ 
セッサ が 呼び出されたら， 漢字変換 用の ウイ ン ドウ を 画面に 表示し， キー ボー 
ド から 入力され た 文字 を フロン ト プロセッサ を 使って 漢字に 変換し， プ ログ 
ラムに そ の 変換の 結果 を 渡します. 
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このように， 漢字 ドライ バは， BIOS の 入出力 を 拡張して， BASIC や MSX 
-DOS の 環境 か ら 漢字 を 簡単に 利用で きる ようにして いるので す. 


アプリケーション 


BIOS 


^  \ 
ドラ イノく、 


2 


図 3.5   MSX 漢字 ドライ バの位 H 付け 


また 漢字 ドライバ は， BASIC レベルで 2 バイ ト 文字と 1 バイ ト 文字が 混 
ざった 文字列 を 正しく 処理で きる ように 作られた， 文字列 加工 用の コマ ン ド 
を サポ一 ト しています. 

漢字 ドライ バ で 使 える フロン ト プロセッサ は， MSX-Write や HAL 
-NOTE などに 登載され ている ような， MSX-JE 規格に 添つ て 作られた も の 
です. もし， これらの 日本語 入力 フロント プロセッサがない 場合で も， MSX 
漢字 ドライバに は 標準で 単漢字 変換 システムが 内蔵され ている ので， ちょつ 

と 貧弱で はあります 力、'， 漢字 を 入力す る こと は 可能です. もちろん， MSX 
-Write や MSX- Write  II,  HA い NOTE などが 装着され ていれば， 自動的に 
それらの フロン ト プロセッサ を 起動し ます. 

MSX-D0S2 に 搭載され てい る 漢字 ドライバと， MSX2+ に 登載 さ れ てい 
る 漢字 ドライ バ と は 基本的に 同 じ ものです. ま た， 各社 か ら MSX- JE 対応の 
フロン ト プロセッサと 漢字 ドライバ をセッ ト にした カート リ ッジが 発売され 
ています が， それら も 同様です. 

したがって， MSX2  + に MSX- D0S2 カー ト リ ッ ジを揷 入す る と， 漢字 ド 
ライ バが 2 つ 同時に 存在す る こと に なる のです が， その 際に は， MSX2  + 本体 
に 内蔵され ている 漢字 ドライバの 方 力、' 起動し ます. MSX2+ に 内蔵され てい 
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る 漢字 ドライバと， MSX-D0S2 の 漢字 ドライ バの 違い は， 単漢字 変換 用の 辞 
書の 大きさの 違いの みです. 

w 漢字 ドライバの 起動と 利用 

漢字 ドライバの 起動 は， BASIC のコ マン ドラ インから， 

CALL   KANJIn  (n=0〜3) 

と 入力す る ことによって 行われます. n を 指定す る ことによって， 漢字の 画面 
モー ドを 選択す る ことができます. 漢字の 画面 モー ド について は 次 節の コマ 
ン ド リファレンス を 参照して く ださい. 


麗 BASIC 上での 利用 

BASIC からの 利用 は， 今までの 画面への 文字 出力 とほ とん ど 同じです. た 
とえば， 

LOCATE 10， 10 

で 表示す る 場所 を 決めて， 

PRINT  "漢字 ドライバの 漢字 モードでの 漢字 表示" 

のように 記述す る だけで， 漢字 を 出力で きます. ですから， BASIC で 作った 
プログラム ならば， プログラム 中の メッセージ を 漢字に 変える だけで， すぐ 
に 日 本 語 対応の プロ グラムに する こと がで きます. 

日本語 入力 フロン ト プロセッサ は， CTRL+SPACE(CTRL キー を 押しな 
が ら SPACE キー を 押す） ま た は GRAPH  +  SELECT でい つで も 呼び出 し 
て 使う ことができます. 

ま た， 漢字 を 含ん だ 文字列の 処理に 必要な コマンド を 拡張 コマンドの 形で 
用意して います. たとえば， 全角 文字と 半角 文字が 混ざった 文字列から， 文 
字 列 を 切り出す 作業 を， これまで 使われて きた MID$ で 行う とすると， 

MID$ ("全角 文字 ハン カク モシ、、'，， 2，  3) 
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となります. し 力、 し， MID$ は 全角 文字 を 1 つの 文字と して 認識す る ことが で 
きません. 全角 文字 は， 漢字 コード 2 バイト を 1 バイト ごとに 1 つの 文字で 
あると 判断して しまいます. その 結果， この 文の 実行 を 実行す ると， 

PRINT  MID$ ("全角 文字 ハン カク モシ、、"， 2，  3) 
S 角 
Ok 

となって しまいます. この場合 は， 漢字 ドライバの 拡張 コマンド である 
CALL  KMID コ マン ドを 使います. この コマ ン ドは 全角 文字 も 半角 文字 も 
どちらも 1 文字と して 判断し ますから， 

CALL  KMID(A$，" 全角 文字 ハン カク モシ、、"， 2，  3)  ：  PRINT  A$ 
角 文字 
Ok 

というよ うに， 正しく 答え を 出す ことができます. 

ほかに も LEN や INSTR に 相当す るコ マン ドゃ， 漢字 コード を 調べる コ 
マン ド 等が 用意され ています から， 必要に応じて 使う ことができます. 


國 MSX-DOS 上での 利用 

MSX-DOS 上で も 漢字 ドライバ を 使う ことができます. ただし， 漢字 ドラ 
ィ バは BASIC 内から しか 起動す る ことができ ない ので， この場合 は， MSX 
- DOS からい つたん BASIC にして， 

CALL  KANJIn 

を 実行し ます. そして 漢字 モードに した まま， 
CALL  SYSTEM 

で MSX- DOS に 戻れば， MSX-DOS 上で 漢字 ドライバ を 使う ことができ ます. 

フロン ト プロセッサ は BASIC と 同様に CTRL  +  SPACE ま た は 
GRPH+SELECT で 呼び出す ことができ ます. BIOS コール を 使って 入出力 
をして いる プログラム ならば， そのまま 変更な く 動く はずです. 
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漢字 ドライバ 拡張 BASIC 
コマンド リファレンス  


ここで は， 漢字 ドライバの 組み込み によ り 拡張され る BASIC のコ マン ドに 
ついて 解説して いきます. 漢字 ドライバ では， 全角 半角 混在での 文字列 制御 
用の 関数 を， 拡張 ステートメントの 形で 提供して います. 
拡張され るコ マン ドは 次のと おりです. 


CALL 

KANJI 

CALL 

ANK 

CALL 

AKCNV 

CALL 

JIS 

CALL 

SJIS 

CALL 

KACNV 

CALL 

KEXT 

CALL 

KINSTR 

CALL 

KLEN 

CALL 

KMID 

CALL 

KNJ 

CALL 

KTYPE 

CALL 

CLS 

CLS 

CALL 

PALETTE 

WIDTH 

では， 順 を 追って 解説して いきましょう. 
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CAL し KANJI 


參 書式 *    CALL   KANJI  [n] 

漢字 ドライ バの 起動 と 初期化 をし ます. n は 0 から 3 までのう ち どれ か 1 
文字で， 漢字の 画面への 表示 方法 を 指定し ます. n を 省略す ると 0 とみな され 
ます. 

CALL  KANJIO (または CALL  KANJI) では， 漢字 フ オン トを MSX の標 
準 漢字 ROM から 取り出し 表示し ます. 文字 サイズ は 縦 16X 横 16 ドットで 
表示し ます. 

CALLKANJI1 は， 漢字 フォン トを MSX 標準 漢字 ROM から 取り出し， 
横 サイズ を 12 ドッ 卜に 圧縮して 表示し ます. 文字 サイズ は 縦 16X 横 12 ドッ 
ト です. た だし， 松下電器の 仕様に よる 12 ドット フォント ROM がス 口 ッ ト 
に セットされ ている 場合， あるいは システムに 組み込まれ ている 場合 は， こ 
の ROM から フォント を 取り出して 表示し ます. 

CALL  KANJI2 は CALL  KANJIO と 文字 サイズ は 同じです が， インタ一 
レース モー ドで 表示す るので， 縦 方向の 表示 文字 数が 増えます. 

CALL  KANJI3 は CALL  KANJI1 と 文字 サイズ は 同じです が， インター 
レース モー ドで 表示す るので， 縦 方向の 表示 文字 数が 増えます. 

曰 本 語 フロン トェン ドは， この ステ一 ト メン トの 実行時 または システムの 
立 ち 上げ 時に 組み込 まれます. 

MSX が 起動 し てから 一番 最初の CALL  KANJI の 実行時に は 注意が 必 
要です. その 時点での HIMEM(CLEAR 文に よ る） の 設定 は キャンセル さ 
れ， すべての 変数お よび ソフトウェアスタック （FORZNEXT,  GOSUBZ 
RETURN 用） がク リアされ ます. これ は 漢字 ドライバの ワーク エリア を （も 
しあれば 日本語 フロン トェン ドも） 常駐させる 処理が 行われる からです. 2 回 
目 以降の 実行 は 問題な く 行われます. 

漢字 テキス ト モード 

CALL  KANJI 命令な ど を 実行し 澳字 表示が できる 状態 を 、、漢字 モード" 
と 呼びます. さらに 漢字 モー ド でかつ SCREEN ステ一 トメ ントで 0 もしく 
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は 1 が 設定され ている 状態 を 、、 漢字 テキスト モード〃 と 呼びます. BASIC の 
コ マン ド 待ちの 状態で は 漢字 テキスト モードに なって おり， 漢字の 入出力が 
可能です. 

CALL  KANJI 実行 後の WIDTH は ANK モードでの WIDTH を もと 
に， 以下の ように 決定され ます. 

•  ANK モー ドで SCREEN  0 を 使用 していた 場合 

KANJIO か KANJI2 のとき は ANK モー ド 時の WIDTH の 値の 
5 分の 4 

KANJI1 力、 KANJ ほのと き は ANK モー ド 時の WIDTH の 値 

•  ANK モードで SCREEN 1 を 使用して いた 場合 

KANJIO 力、 KANJI2 のとき は ANK モード 時の WIDTH の 値 
KANJI1 か KANJ ほ のとき は ANK モー ド 時の WIDTH の 値の 
5 分の 4 

ただ し， 計算に よって 決まった WIDTH が 26 未満の とき は 26 に 設定され 
ます. 

漠字 グラフィック モー ド 

漢字 モー ド でかつ SCREEN ステートメントで 2 から 11 が 設定され てい 
る 状態 を や 漢字 グラフィック モード〃 と 呼びます. 漢字 グラフィック モード 
では プロ グラムに よる 漢字の 出力の みが 可能です. 

漢字 グラフ ィ ック モードの 画面 表示 は， つねに 表示で きる 最大に 設定され 
ます. WIDTH による SCREEN モー ドの 選択 は 以下の よ うになります. 

•  KANJIO か KANJI2 で， WIDTH が 26〜32 のとき は 256 ド ッ ト モー 
ド （VDP の モードで いう と SCREEN5) が， 33~64 のとき は 512 ドッ 
トモ 一 ド （VDP の モー ドで いうと SCREEN7) が 選択され る. 

•  KANJI1 か KANJI3 で， WIDTH が 26〜40 のとき は 256 ド ッ ト モー 
ド （VDP の モー ドで いう と SCREEN5) 力 《，41〜80 のとき は 512 ドッ 
トモ一 ド （VDP の モードで いう と SCREEN7) が 選択され る. 

VRAM64K の MSX2 の 場合に は SCREEN6 が 使用 されます. 
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漢字 入力  1 

漢字 ドライ バは 仮想 端末 入力 インターフェイス を 持つ カート リツ ジが 存在 
する 場合 は， 起動時に これ を インストール します. 直接 入力 モード （ANK) と 
間接 入力 モー ド （漢字） は， CTRL+SPACE も し く は GRAPH  +  SELECT 
よって 切り替えられます. 仮想 端末 入力 インタ 一フェースが 存在 しないと き 
は， 単漢字 変換 機能が 使用で きます. 

リスト 3.1 演字 テキス トモ 一 _ ドと漠 字 グラフィック モード  

100  CALL  KANJI3 
110  CLS 

120  LOCATE  0,10:  PRINT  "漢宇 テキス ト モード" 
130  IF  INKEY$=""  THEN 130 

140  SCREEN  7  3： SET  PAGE 1,0  ！ 

150  CLS 

160  LOCATE  0.10:PRINT  "涣字 グラフ ィ プク モー ド" 
170  IF  INKEY$=""  THEN 170 
180  END 


CALL  ANK 


參 書式 參 CALL  ANK 


漢字 ドライバ を 終了し ます. 漢字 ドライバ を 起動した と きの SCREEN 
モードに 炅 ります. ただし， 漢字 ドライバ 用に 確保され た ワーク エリアな ど 
の メモリ は 解放され ません. 

リスト 3.2 漢字 ドライバ 終了後の フリー エリアの 表示 


100  PRINT  FRE(0) 

110  IF  1NKEY$="W  THEN 110 

120  CALL  KANJI3 

140  PRINT  FRE(0) 

150  IF  INKEY$=""  THEN 150 

160  CALL  ANK 

170  PRINT  FRE(0) 

180  END 
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CALL  AKCNV 


* 軎 式き CALL   AKCNV (く 文字 変数〉， く 文字列〉） 

〈文字列〉 中の すべての 文字 を 全角 文字に 変換して く 文字 変数〉 に 代入し 
ます. 


CALL  JIS 


* 喾式 *    CALL  JIS  (く 文字 変数〉， く 文字列〉） 

〈文字列〉 の 最初の 2 バイ トを 16 進 4 桁の JIS コー ドに 変換して く 文字 変 
数〉 に 代入し ます. 

リスト 3.3 文字列 を PUTKANJI で 表示す る 


100  SCREEN  7:CLS 

110  A$= "今 曰 は 良い天気 という テス ト" 

120  CALL  KLEN(L.A$) 

130  X=100 

140  FOR  1=1 TO  L 

150     CALL  KMID(K$.A$.I,1) 

160     CALL  JIS(J$,K$) 

170     PUTKANJI  (X,I00).VAL("&H"+J$),15 

180  X=X+16 

190  NEXT  I 

200  IF  INKEY$=""  THEN  200 
210  END 
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CALL  SJIS 


參窖式 *    CALL  SJIS  (く 文字 変数〉， く 文字列〉）  | 

く 文字列〉 の 最初の 2 バイ ト を 16 進 4 桁の シフ ト JIS コー ドに 変換して 
〈文字 変数〉 に 代入し ます. 


CALL  KACNV 


* 書式 *    CALL   KACNV  (く 文字 変数〉， く 文字列〉） 

く 文字列〉 中の 半角 文字に 変換で きる すべての 文字 を 半角 文字に 変換して 
く 文字 変数〉 に 代入し ます. 


CALL  KEXT 


*氇式*    CALL   KEXT  (く 文字 変数〉， く 文字列〉， く 機能〉） 

く 機能〉 が 0 なら く 文字列〉 中の 半角 文字 だけ を， 1 なら 全角 文字 だけ を 抜 
き 出し く 文字 変数〉 に 代入し ます. 


CALL  KINSTR 


* 喾式 *    CALL   KINSTR  (く 数値 変数〉 [，く 数式〉], く 文字列 1>, く 文字列 2>) 

文字列の 中 か ら 指定す る 文字列 を 捜して そ の 文字の 位置 を 返します. 
BASIC の INSTR ステートメントと 同 じ 動作 を し ま すが， 全角 文字 (2 バイ 
ト 文字） に 対応して います. 全角 文字と 半角 文字が 混ざって いても， 文字 数ポ 
位の 結果 力、' 正 しく 得られます. 
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く 文字列 1>  の 中から く 文字列 2> を 捜し だし， 見つかれば 発見した 位置 を 
く 数値 変数〉 に 代入し ます. 見つからなければ 0 を 〈数値 変数〉 に 代入し ます. 

く 数式〉 は 捜し 始める 位置 を 文字 数 を 単位と して 指定し ます. 0 から 255 の 
範囲で 指定し ます. 省略され ると 1 とみな しく 文字列 1>  の 左端から 捜し 始め 
ます. 

〈文字列 2〉 の 長 さ が く 文字列 1>  より 大きかったり， く 文字列 1〉 が ヌ ルス 
ト リングで あれば 0 を く 数値 変数〉 に 代入し ます. 

リ ス ト 3.4 空白 を 区切り 文字と して 捜し出 し 文字列 を 分割 


100  SCREEN  0:CALL  KANJI0 

110  A$= "文字の 区切り は スペースよ という テス ト ":PR1NT  A$ 
120  CALL  KLEN(L,A$,0) 
130  J=l 

140  CALL  KINSTR(1,J,A$," ") 
150  CALL  KMID(K$,A$,J,I-J) 
160  PRINT  K$ 
170  J=I+1 

180  IF  J<L  THEN 140 
190  END 


CALL  KLEN 


攀扭式 *    CALL   KLEN (く 数値 変数〉， く 文字列〉 [， く 機能〉]) 

文字列の 総 文字 数 を 返します. BASIC の LEN ステー トメ ントと 同 じ 動作 
をし ますが， 全角 文字に 対応して います. 全角 文字と 半角 文字が 混ざって い 
て も， 正しい 結果 力、' 得られます. く 機能〉 を 指定す る ことによって， 対象と な 
る 文字の 種類 を 指定す る こ と がで き ま す. 

く 機能〉 が 0 または 省略され た 場合 く 文字列〉 の 全体の 長さ を く 数値 変数〉 
に 代入し ます. 

〈機能〉 が 1 のとき は く 文字列〉 中の すべての 半角 文字の 文字 数の 合計 を 
く 数値 変数〉 に 代入し ます. 
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く 機能〉 が 2 のとき は く 文字列〉 中の すべての 全角 文字の 文字 数の 合計 を 
〈数値 変数〉 に 代入し ます. 


リスト 3.5 入力した 文字列の 文字 数 を 表示させる 


100 INPUT  "文字列 を 入力して ください"; A$ 

110  CALL  KLEN(A.A$.0) 

120  CALL  KLEN(B,A$,1) 

130  CALL  KLEN(C.A$.2) 

140  PRINT  A$;" は"; A;" 文字です" 

150  PRINT  "半 ft 文字 は 全部で"; B;" 文字です" 

160  PRINT  "全 W 文字 は 全部で"； C;" 文字です" 

170  END 


CALL  KMID 


* 窖式 *    CALL   KMID (く 文字 変数〉， く 文字列〉， く 数式 1>  [， く 数式 2>]) 

文字列の 中から 指定した 長さの 文字列 を 取り出して 変数に 代入し ます. 
く 文字列〉 の 中の く 数式 1〉 番目の 文字から く 数式 2> 文字 分 だけ 抜き出し 
て く 文字 変数〉 に 代入し ます. く 数式 2〉 が 省略され た 場合 は 〈数式 1>  番目 
の 文字から 終わりまでの すべての 文字 力、' 代入され ます. 


リスト 3.6 横 S きを 縱 S きに 変換す る 


100  DIM  A$(10).B$(5) 

110  FOR  1=0  TO  9 

120  READ  A$(I) 

130  NEXT  I 

140  FOR  1=0  TO  9 

150     PRINT  A$(l) 

160  NEXT  I 

170  PRINT 

180  FOR  1=1 TO  5 

190     FOR  J=9  TO  0  STEP  -1 

200        CALL 画 (C$.A$(J), し 1) 
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210  B$(I)=B$(I)+C$ 

220     NEXT  J 

230  NEXT  I 

240  FOR  1=1 TO  5 

250     PRINT  B$(I) 

260  NEXT  I 

270  END 

280  DATA あいう えお 
290  DATA かきく けこ 
300  DATA さしす せ そ 
310  DATA たちって と 
320  DATA なにぬ ねの 
330  DATA は ひふへ ほ 
340  DATA まみむ め も 
350  DATA ゃゐゅ ゑよ 
360  DATA らり るれ ろ 
370  DATA わ をん 


CALL  KNJ 


* 魯式 *    CALL  KNJ  (く 文字 変数〉， く 文字列〉） 

く 文字列〉 で 指定され る 4 桁の 漢字 コードに 相当す る 漢字 1 文字 を く 文字 
変数〉 に 代入し ます. 漢字 コードが 8000H 未満のと き は， JIS, それ以上のと 
き はシフ ト JIS とみな します. 


リスト 3.7   JIS 第 1 水準の 漢字 コード 表 を 作る 


100  '第一 水準 漢字 を 表示す る 
130  K=&H21 
135  PRINT 

190  PRINT  "  0123456789ABCDEF" 

220     FOR  KL-2  TO  7 

240       PRINT  HEX$(K«256+KL*16);'*  ，'； 

270       FOR  X=0  TO 15 

310  CALL  KNJ(K$, HEX$(Kx256+KL*16+X)) 

315  PRINT  K$; 

320       NEXT  X 
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325  PRINT 

330     NEXT  KL 

350  IF  INKEY$=""  THEN  350 

360  K=K+l:lF  K<>&H50  THEN 135 

370  END 


 CALL  KTYPE   

* 掛式 *    CALL   KTYPE (く 数値 変数〉， く 文字列 >， く 数式〉） 

〈文字列〉 の 中の く 数式〉 番目の 文字の タイプ (半角なら 0， 全角なら 1) を 
〈数値 変数〉 に 代入し ます. 

リ ス ト 3.8 文字列 を 半角 と 全角で 色分けして 表示 


100  A$=" 究極 ノ漠字 処理 /» 色タ' トイ ウテ スト" 

110  CALL  KLEN(L,A$.0) 

120  FOR  1=1 TO  L 

130  CALL  KTYPE(A,A$,I) 

140 IF  A=l THEN  COLOR  8  ELSE  COLOR  7 

150  CALL  KMID(K$.A$,1,1) 

160  PRINT  K$; 

170  NEXT  I 

180  END 


CALL  CLS 


參# 式參 CALL  CLS 

画面 を ク リ ァー します. CALL  KANJI ステー トメ ント によ り 漢字 テキス 
ト モードに したと きに， 画面 をク リアす るた めに 使用し ます. 漢字 モードで 
ない とき も 使用で きます. 
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CLS 


•  S 式參 CLS 

画面 をク リアし ます. 漢字 テキスト モードで， CLS ステートメント を 実行 
する と， "Illegal  function  call" とな り 使用で き ません. 漢字 テキス ト モー ド 
のとき は， CALL  CLS ステ一 トメ ント を 使用して く ださい. 

なお， 漢字 グラフ ィ ックス モー ド では CLS,  CALL  CLS ともに 使用で き ま 
す. 


CALL  PALETTE 


拳 書式 *    CALL   PALETTE  [(く パレット 番号〉， く 赤 輝度〉， く 緑 輝度〉， 
く 青 輝度〉）] 

カラー パ レツ 卜の 初期化 または 設定 を 行います. 

漢字 テキス ト モー ド にした ときに， パレ ッ ト を 変更す るた めに 使用し ます. 
漢字 モー ド でない ときで も 使用で きます. 

パラメータ をす ベて 省略した 場合 は， パ レツ トを 初期 状態に します. 

パラメ一 タカ、' 指定され た 場合， くパ レツ ト 番号〉 で 指定され たパ レツ トを 〈赤 
輝度〉， く 緑 輝度〉， く靑 輝度〉 の 色に 設定し ます. 

COLOR ステート メン ト 機能のう ち， パ レツ ト を 設定す る 機能 は CALL 
KANJI ステート メン ト によ り 画面 を 漢字 テキス ト モードに すると" Illegal 
functioncall" となり 使用で きません. 漢字 テキスト モードの とき は， CALL 
PALETTE ステート メン トを 使用して く ださい. 漢字 グラフ ィ ック モードで 
は エラーと なら ず 使用 でき ま す. 
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WIDTH 


* 掛式 *    WIDTH     く 析数〉 

1 行に 表示す る 文字 数 を 設定し ます. 

WIDTH ステートメント は 漢字 モ一 ド のと きに は 以下の よ う に 動作し ま 
す. 

'漢字 テキス ト モードの 場合 

KANJIO か KANJI2 のとき， く 析数〉 の 指定 は 26 から 64 が 有効 
KANJI1 か KANJ ほ のとき， く 桁 数〉 の 指定 は 26 から 80 が 有効 
上記 以外の 値が 指定され ると" Illegal   function  call" となる 

• 漢字 グラフ ィ ック モー ドの 場合 

つねに" Illegal   function  call" となる 
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W 漢字 モード 時に 使い方が 変わる 

， BASIC コマンド 

漢字 グラフィック モード では PRINT 文に よって グラフィック 画面への 
文字 出力が 可能に なり ま した. ただし これ を 使用す る 際に は 以下の 注意が 必 
要です. 

LOCATE 文で 指定す る カーソル ポジション は， 半角 文字 単位です. 漢字 
は， 偶数 位 S にも 奇数 位置に も 正しく 表示で きます が， 行末で は， 半角 2 つ 
分 スペースがない と 表示で きません. その 場合 は 1 行 改行して 行の先頭に 表 
示して いきます. 

たとえ ば， KANJI1 ま た は KANJI3 の 場合 は X  =  79，  KANJI0 ま た は 
KANJI2 の 場合 は X  =  64 の ポジション で 漢字 を 表示 しょうと すると， そこに 
は 半角 1 文字 分の スペースし かないので， 1 行 改行して 次の 行の先頭に 漢字 
を 描きます. 

力一 ソル ポジション 力、' 表示で きる 最下 行の 一番 右側に なった 場合， i 行ス 
クロール アップして， 最下 行の先頭から 表示して いきます. 
カーソル ポジ ショ ンを 保持して いる エリア は 1 つし かないので， インタ一 

レース モ一 ド などで アクティブ ページ を 変更しながら PRINT してい く と， 
他の ぺー ジ での カーソル ポジ ショ ンの 設定の 影響 を 受け ま す. 

インター レース モード （KANJI2,  KANJI3) を 設定して いる 場合， PRINT 
文の 文字 出力 は， インタ一 レース モー ド 用に 漢字 フォ ン トの奋 数 ラインと 偶 
数 ライン を 分離して， 2 つの ページに 書き込んで います. 文字 出力 をす る 際 

は， SCREEN 文で EVENZODD の インター レース モ一 ド （SCREEN  

3) に 設定して， SET   PAGE 文で 表示 ページ を 奇数 ページに， アクティブ 
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ページ を 表示 ページ- 1 に 設定し なければ なりません. 

たとえば 漢字 グラフ ィ ック モー ドの SCREEN7 を 使う ので あれば， 

SCREEN7,,,,,  3:SET  PAGE1.0 

を かならず 入れて ください. なお， SCREEN2 から 4 では 1 ページし かない 
ので この 設定 は 意味 を 持ちません. 

従来の 方法であった， OPEN 文 を 用いて PRINT  # で 表示す る 方法 も 同時 
に 使用す る こと は 可能です が， ANK 文字し か 表示で き ません. 漢字 を 表示し 
よう とした 場合， グラフ ィ ック 文字が 表示され てし まいます. 

PRINT 文で 表示す ると きの カラ 一 指定 は， 直前の COLOR 文に よる 前^: 
色， 背景 色で 行います. COLOR 文で 設定され た 前 i 色で 文字 を 表示し， 背， 
色で 文字の 背景 を 表示し ます. SCREEN2 から SCREEN12 ま で この 方法で 
表示し ます.  1 

従来 SCREEN モード を 変更した だけで は， ス プライ ト 表示 禁止 ビット 
(VDP レジスタ 8) や インター レース モード （VDP レジスタ 9) は 変化 しませ 
ん でした 力、'， 漢字 モードで は 両方と もク リアされ てし まいます. つまり， 
SCREEN モード を 変更す ると， ス プライ トの 表示 は 禁止され， インタ一 レー 
ス モー ドは ノン ィ ン ター レース モ一 ド になる という こ とです. ただし ィ ン 
ター レース モー ド に関して は， SCREEN 文の 第 6 パラメ一 タを 同時に 指定 
した 場合 は， 正しく 設定され ます. 
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W 単漢字 変換 機能 

漢字 ドライバに は 標準で 单 漢字変換 機能が 組み込まれ ています. これ は， 

仮想 端末 入 カイ ン ターフェ イス （MSX-Write のよ うな フロン ト プロセッサ. 
MSX-JE のこと） がない システムで あっても BASIC お よ び MSX- DOS 上 
で 漢字の 入力 を 行う ことができる ようにす るた めの 機能で， これ を 用いる こ 
とに よって， プログラム や テキスト 等で 全角 文字 を 取り扱う ことができます. 
ただし システム 上に 仮想 端末 入力 インター フヱ イスが ある 場合 は， そちらが 
優先的に 動作し ます. 现在 発売され ている MSX2  + の 中にはす でに MSX 
-JE が 内蔵され ている 機 樋 もあります ので， そういう 機種 をお 持ちの 方 はこ 
の 機能 を 使う こと はないで しょ う. 

國 単漢字 変換 フロン 卜 プロセッサの 特徴 

単漢字 変換と は 漢字の 読みに よって， その 読み を 持つ 漢字 をす ベて 表示し， 
その 中から 漢字 を 選ぶ 方式で， 漢字変換の 方法と して は 一番 基本的な ものの 
部類に 当たります. しかし， どんなに 高級な 連 文節 変換 や AI 変換であって 
も， 辞書に その 文字が 登録され ていなかった 場合 は， 単漢字 変換で 文字 を 入 
力して いかなければ なりません. 文章 を 入力す るの はちよ つと 辛い のです が， 
プログラム のなかに 漢字の コメン トゃメ ッ セージ を 入れる ぐらいの 使用法で 
あれば 充分な ものと いえる でしよ う. 

こ の 単漢字 変換 フ ロン ト プロ セッ サは 以下の 特徴 を 持つ ています. 

• 変換 は 漢字の 音読みに よって 行う 

• カーソル キー を 使って， 容易に 目的の 漢字 や 特殊 文字 を 選択す る こと 
がで きる 

•  JIS 第 2 水準 漢字に 対応して いる 

國 単漢字 入力 モード 

CALL  KANJI を 実行し， 漢字 モードで CTRL +SPACE キー （CTRL 
キ 一を 押しながら SPACE キ 一を 押す） または GRAPH  +  SELECT キー を 
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押す と， 画面の 最下 行が 反転して 漢字変換 ウィンドウが 表示され ます. この 
状態が 単漢字 入力 モー ドで， 漢字の 入力が 可能に なり ます. 

この 状態で， CTRL+SPACE (あ る いは GRAPH  +  SELECT) をもう一 度 
押す と 単漢字 入力 モード を 終了す る ことができます. 画面 煅 下行に ファンク 
シ ヨン キーの 内容 を 表示す るよ う に 設定して いた 場合 は それが 表示され ま 
す. 

も し 画面の 最下 行で 文字 入力 中だった 場合 （ファンク ショ ン キーの 内容 表 
示 を OFF に 設定して いた 場合な ど） は 1 行 スクロール アップし てから 最下 
行 を 反転し 漢字 入力 ウイ ン ドウ を 表示し ます. 

國 単漢字の 入力 方法 

前記の 方法で 単漢字 入力 モー ドに 移行す ると， 最下 行に かな 漢字変換 ゥ |f 
ン ドウ が 反転 表示 さ れ， 単漢字 変換が 可能に なります.  I 

ここで は 「漢字 j という 文字 を 入力す る 場合 を 例に あげて， 実際に かな 漢 
字 変換 で 漢字 を 入力す る 方法 を 説明して 行きます. 

①  CTRL+SPACE によって 漢字 入力 モー ド にします. 漢字 入力 モ一 ド 
に はいると 画面 最下 行が 反転し， 漢字変換 ウイ ン ドウが 表示され ます. 

②  かな キー， もしくは SHIFT+ かな キ一 （ローマ字 入力 モード） を 押し 
| て， 「か」 を 入力し ます. 

) すると 変換 ウィンドウに， 

か 化 下家 可 価 歌 加 科 火 果花課 河 何 過 

のように， ひらがなの 「か」 および 「か」 と 読む 漢字が 表示され ます 
(表示され る 文字 数 は 最大 15 文字. 文字 数 は 漢字 モード， WIDTH の 
設定 値に よって 異なる）. 

③  続いて 「ん 」 を 入力す ると， 

かん 間 関 完館官 観 管感監 環卷刊 幹干歓 

のように， 「かん j および 「かん 丄と 読む 漢字が 表示され ます. 
© 変換 ウィンドウ 内の カーソル を カーソル キーの 上， 下， 左， 右 キー ま 
たは スペース キーで 移動し， 目的の 「漢」 の 字の 上に 合わせて， リタ一 
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ンキ一 を 押して 決定し ます. すると， 画面に 「漢」 が 表示され， 変換 
ウィン ドウ 内はク リアされ ます. 
© 次に 「し」， n、J を 入力し ます. （ローマ字 変換の 場合 は， 「J」， 「I」 を 
入力す る） 

© 同様に 力一 ソル を 「字」 に 合わせて リターン キー を 押す. 
■  JIS コード 入力 

前記の 方法で 単漢字 入力 モー ドに 移行す る と， 最下 行に 仮名漢字変換 ウイ 

ン ドウが 反転 表示され， JIS コ一 ド 入力が 可能に なり ます. JIS コー ドで 入力 
する 場合 は， CTRL キー を 押しながら 4 桁の JIS コー ドを 連続して 入力し ま 
す. すると その JIS コードに 相当す る 文字から 最大 127 文字が 入力の 候補と 
して 選ばれ， JIS コ一 ドの 順に 変換 ウイ ン ドウに 最大 15 文字ず つ 表示され ま 
す. 変換 ウイ ン ドウ 内の カーソル を 力一 ソル キー 上， 下， 左， 右 または スぺー 
スキーで 移動し， 目的の 文字に 合わせて， リターン キーで 決定し ます. する 
と 画面に その 文字が 表示され， 変換 ウイ ン ドウ 内はク リアされ る. 

ここで 「☆」 という 記号 を 入力す る 場合 を 例に あげて， JIS コ一 ド 入力の 方 
法 を 説明し ます. 

(DCTRL+SPACE によって 漢字 入力 モー ドに はいります. 画面 最下 行 
が 反転 表示され， 変換 ウィンドウが 表示され ます. 

②  CTRL キー を 押しながら JIS コード を 入力し ます. 「☆」 の 場合 JIS 
コード は 2179 ですから， CTRL キー を 押しながら 2179 と 入力し ま 
す. すると 変換 ウイ ン ドウに， 

☆★◦•◎◊♦□■△▲▽H〒 

と 表示され ます. 

③  変換 ウィンドウ 内の 力一 ソル を カーソル キ一 上， 下， 左， 右キ一 また 
は スペース キーで 移動し， 「☆」 の 上に 合わせて， リターン キー を 押し 
て 決定し ます. すると 画面に その 文字が 表示され， 変換 ウィンドウ 内 
はク リアされ ます. 
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國 変換 中の 訂正 

変換 中の 訂正 は ESC キー を 押す こ と で 可能です. ESC キ 一を 押す と 変 4 
ウィンドウ 内が ク リアされ， 読み 入力の 状態に 戻ります. 

國 各種 文字の 入力 方法 

その他 各種 文字の 入力 は 以下の よ う になって います. 

• 全角 ひらがな 「かな」 ランプが 点灯して いる 状態で 入力 
'全角 カタ カナ 単漢字 入力 モ一ド で 「かな」， 「CAPS」  （CAPS    L0 ひ 

キーの 両方が 点灯して いる 状態で 入力 
• 半角 カタ カナ 単漢字 入力 モ一 ドを 解除して， 「かな」， 「CAPS」（CAP 

LOCK) キーの 両方が 点灯して いる 状態で 入力 
♦ 全角 記号 JIS コード 入力 を 使用 し て 入力 
• 全角 英数字 単漢字 入力 モードで 「かな」 ランプが 点灯して いない 

状態で 入力 

MSX2+ では JIS 第 2 水準 漢 字 ROM は オプションです 力、'， システム （ 
JIS  ^  2 水準 漢字 ROM が 存在す る 場合 は， I' 【動的に JIS  ^  2 水準 対応の 辞 

mmiK されます ので， 第 2 水準の 漢字 も 入力 可能です. 

ローマ字 変換 機能に ついては， MSX2 本体の ローマ字 変換 機能と I' ガ 様で 
す. SI IIFT+ か な キ ― (SHIFT キー を 押し な が ら かな キ 一を 押す) によつ 
ローマ' t: 人力が 可能に なり ます. 
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活用 サンプル プログラム ① 
漢字 スケジュール 'メモ 


ここで は， 漢字 テキスト モー ド 上で 動作す る サン プル プロ グラム を 2 っ紹 
介し ます. 紹介す る プログラム は BASIC 上で 動作す る 簡単な ものです から， 
市販の ソフ ト などと は 実用 性 や 速度な どの 面で は 比べ ものに なりません. と 
はいえ， 気軽に 使う ことができ， 簡単に 改良で きる という 自作 プログラムな 
ら ではの 楽しみ 方 もで きる でしよ う. 

最初に 紹介す る プログラム は， 日々 の スケジュール を 害き 込んで おく，  メ 
モ. プログラムです. 実用 性と いった 面で は 疑問が あるか もしれ ません 力、'， 手 
帳の 感覚で なんでも 書き込んで おいて， 内容 を ディスクに 保存したり， プリ 
ンタに 出力したり できる ようになって います. 

國 スケジュール •  メモの 使い方 

プログラム を リス ト 3.9 に 示します. この プログラム を、、 RUN 〃させる と， 
まず MSX の 時計に 設定され ている 日 持 を 表示し， 今日の 日付 を 入力す るよ 
う 促します. 日付 力、' 合って いれば そのまま リ ターン キー を 押せば よいので す 
が， 変更したい 場合 は， 西暦と 月と 日 を 2 桁つ' つ （西暦 は 下 2 桁） を、、/" (ス 
ラッシュ） で 区切って 入力し， リ ターン キー を 押して く ださい. 

日付の 入力が 終わる と， ディ スク から スケジュールの 保存され ている ファ 
ィル "schdul.dat" を 読み込んで， 今日の 予定 を 表示し コ マン ド 待ち 状態と な 
ります. 最初に 立ち上げた ときには， スケジュールの はいった ファイル は存 
在し ません から， 枠 だけ を 表示して コマンド 待ち 状態と なります. この 状態 
で 受け付ける コ マン ドは 次の 表の ようになつ ています （表 3.2). 

ここで， 1 つ 注意す る ことがあり ます. 表 3.2 にある ように， コ マン ド はファ 
ン クシ ヨン キーに よっても 実行で きます. ただし， これら を 使う ことができ 
るの は， フロントエンドプロセッサ を 切って あるとき だけです. これ は， フ 
ロン トェン ド プロセッサ 力、'， 変換 や 確定な どの 目的で ファンクションキー を 
利用して いるた めです. ですから， 漢字 を 入力した あと は 英字の コマンド を 
使う 力、 CTRL  + スペース キー や GRAPH + SELECT キーに よって フロ ン 
トェン ドを 切って から ファンク ショ ンキ一 を 使うよう にして く ださい. 
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コ マン ド 

カーソル 移動 

m  m 

LL)  UJ 

力 一 ソ メレの 移動 

入力 • 編 錤 など 

I  F1 |  |Wj 

データの 入力と 修正 

1  F2  |  |S| 

日付に よる 検索 

回 m 

カーソル 位 s に データ を 挿入 

1  F4  |  (D| 

カーソル 位 E の データ を 削除 

1  F5  |  |P| 

スケジュール を 印刷 

|F10|    |  E| 

ファイルの 出力と 終了 

表 3.3 スケジュール •  メモの コマンド 一覧 


では， それぞれの コマンドの 説明 をし ましょう. データ を 書き込む に は， 
カーソル （バックが 緑色に 表示され ている 行） を カーソル • キ 一の 上下 を 使つ 
て 適当な 場所に 動かして， W キー （入力） を 押します. すると 上段に 質問が で 

ますから， 日付， 時刻， メモの 順に 入力す ると， カーソル 位置に データが 遨 

き 込まれます. データ は 横 1 行 を 1 レコード として， その レコード を 3 つに 
わけて 管理され ています. 日付と 時刻 は それぞれ 半角で 5 文字， メモ 欄 は 半 
角 48 文字 (全角 な ら ば 24 文字） という 表示 文字 数 か ら く る 制限が あ ります. 

揷 入の I キー や， 削除の D キー も 入力 の 場合 と 同様 カーソルの ある 行に 対 
して 行われます. 画面に 表示され る 行 は 11 行です が， 喾き 込める 行 は 最大 50 
行と 設定して あり， カーソル キーで 画面 内の 移動が 出来るだけで なく， 前後 
に スクロールさせる こと もで きます. また， カーソル キーの 左右 は ページ 単 
位の 切り換えに 使います. 

照会の S キ一 は 指定す る 日 付の 検索の ための もので， 先頭 か ら 検索して 入 
力した 日付と 一致す る 行が あるか どうか を 探します. 見つかった 場合， その 
行 以降 を 画面に 表示し ます. 印刷の P キー は， 力一 ソル 位置から 1 画面 分 （11 
行) の メモ を プリンタに 出力し ます. 入力 や 修正， 削除な どの 作業の あと は， 
必ず E キー を 押して プロ グラ ムの 実行 を 終了す るよう にして ください. これ 
は， 最初に データ を 1 度に 読み込んで おき， 終了 時に 害き 込んで 更新す るよ 
う にして いるから です. 
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國 プログラムの 流れ 

プログラムの 基本的な 流れ は 次のように なって います. まず， 日付の 入力 
を 行い， 初期 画面 を 書きます. 既存の データファイルが ある 場合 は， それ を 
読み込み， その 日の 予定 を 表示し ます. その後 は， メイン ル一 チンで コ マン 
ド 入力 を 判断して， それぞれの サブルーチン へと 分岐す る 繰り返しです. 終 
了 時には， データ を 再び ファイルに 書き 戻して， ファンクションキーの 初期 

化 (BIOS の &H3E を 利用） な ど を 行つ て 終了 します. 

國 漢字 入力た めの テクニック 

漢字 ドライ バを 利用 し た プロ グラムで は， 漢字の 入力 と 出力 を 漢字 ドライ 
バに M るので すから， 漢字 コード を 正しく 受け取り， きちんと 処理 さえす 
れば よい ことになります. その 処理 を この プログラムで 見て みる ことにし ま 
しょう. 

1120 行 を 見て く ださい. ここで は， IN$ に 入力され た 文字列から 日付 を設 
定 しています 力、'， IN$ が 全角 文字に よって 入力され た 場合 を 想定して， 半角 
文字列に 変換して いるので す. これと 同様の 処理 は， データ 照会 ルーチンで 
の 日付の 読み込み （2030 行) ， データの 入力 ルーチン での 日 付 や 時刻の 読み込 
み (2330 行， 2360 行) で 行って います. 

また， メイン ループ 中の 1380 行からの コマンド 受け取り 部分で は， 入力 文 
字 列が い つ たん 途切れる ま で 取 り 込み， その後で 先頭の 1 文 宇 分 を 取 り 出す 
という 方法 をと つてい ます. それ は， ファンクションキーに 設定され ている 
文字列が 長いた めに， その 先頭 を 取 り 出す という こと と， 全角 文字 を 受け取つ 
た 場合の 半角への 変換と いう 2 つの 理由が あるので す. 

また， データ 入 カル一 チンの 中で， メモ 欄の 文字列 を 48 バイ ト 以下に する 
処理 (2390  ~  2400 行） も 単純に LEFT  $ で 取り 出す ので はない ことに 注意し 
て く ださい. 

國 画面 表示の テクニック 

KANJI テキス ト モー ド においても， ANK モー ド のとき と 同様の エス ケー 
プ シーケンスが サボ一 ト されて います （表 3.4). 
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o カーソル 移動 

<ESOA 

カーソル を 上に 移動 

<ESC>B 

カーソル を 下に 移動 

<ESC>C 

カーソル を 右に 移動 

<ESC>D 

カーソル を 左に 移 助 

<ESC>H 

カーソル を ホーム ポジ シ ョ ンに 移動 

く ESOY く  Y 座標 +20HXX 座摞 +20H> 

カーソル を （X. Y) の 位 H に 移動 

OS 集， 削除 

<ESC>j 

画面 をク リア 

<ESC>E 

画面 をク リア 

<ESC>K 

行の 終わりまで 削除 

<ESC>J 

画面の 終わりまで 削除 

<ESC>L 

1 行 挿入 

<ESC>M 

1 行 削除 

O その他 

<ESC>x4 

カーソルの 形 を '議' にす る 

<ESC>x5 

カーソル を 消す 

<ESC>y4 

カーソン U7) 形 を'—' にす る 

<ESC>y5 

カーソル を 表示す る 

表 3.4 エスケープ シーケンス 表 


本 プログラム では， この エスケープ シーケンス のうち 行末までの 消去， 行 
削除に よる 上ス クロール， 行揷 入に よる 下スク ロール を 利用 しています. 

また， KANJI テキスト モードで は， 直前に COLOR 文で 指定した 色 (前: 
色， 背景 色） によって 文字 力、' 描かれる ようになって います. ところ 力、'， KANJI 
テキス ト モー ドで COLOR 文 を 使う と， 周辺 色 は 背景 色と 同一の 色と して 設 
定 されて しまいます. このために， 周辺 色と 異なった 背景 色 を 使おうと する 
と， そのたび に 周辺 色が 変化して しまい， 目障りな ものと なります. そこで 
背景 色 だけ を 変えて 周辺 色 を 変えない ようにす るた めに， 背 i 色の カラ一 
コー ド 力、' 格納され ている ワーク エリアに 直接 カラー コー ドを鲁 き 込む よう ^ 
しています. この 背景 色の カラ一 コー ド 力、' 格納され ている ワーク エリ ァは 
BAKCLR(&HF3EA) です. 
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リスト 3.9 漠宇 スケジュール 'メモ *SCHDUL.BAS 


1000  ' スケジュール 管理 プログラム 
1010  ' 

1020  CALL  KAN J 10：  WIDTH  64 

1030  KEY  ON:  COLOR  15,1:CALL  CLS 

1040  MAXFiLES=l:  CLEAR  5000：  DEFINT  A-Z 

1050  BC=&HF3EA:  BK=1 

1060  MX=50:  DIM  DT$(MX).TM$(MX).TX$(MX) 

1070  ES$=CHR$(27):  EC$=ES$+"K":  EU$=ES$+"M":  ED$=ES$+"L" 

1080  ' ―  Input  Date  ― 

1090  GET  DATE  D$:  IN$="" 

1100  LOCATE  10.2：  PRINT  "今日の 日付 は ["； D$;"] です" 

1110  LOCATE   6,4：  INPUT  "日付 を 入力して ください （YY/MM/DD)  "；  IN$ 

1120  IF  IN$<>""  THEN  CALL  KACNV(D$. IN$):  SET  DATE  D$ 

1130  ， — Initialize  Screen  — _ 

1140  CALL  CLS 

1150  GOSUB  2630  'DispTopLine 

1160  KEY  1,"W  ： 入力"： KEY  2,"S  ： 照会"： KEY   3, "に 抻入" 

1170  KEY  4,"D  ： 削除"： KEY  5，"P  ： 印刷"： KEY 10, "E  ： 終了" 

1180  FOR 1=6  TO  9：  KEY  I."":  NEXT  I 

1190  ' -—  Read  File  — - 

1200  ON  ERROR  GOTO  1310  'NoData 

1210  OPEN  "schdul.dat"  FOR  INPUT  AS  »1 

1220  FOR  1=0  TO  MX 

1230     INPUT  81.DT$(I).TM$(I),TX$(I) 
1240  NEXT  I 

1250  ' ---  End  of  File  -— 

1260  CLOSE  81 

1270  ON  ERROR  GOTO  0 

1280  SCX=0:  DTX=0:  CUR=l:  GOSUB  1820  "DispPage 

1290  GOTO  1330  'Main 

1300  ' ---  No  Data  —- 

1310     RESUME  1260 

1320  ' -—  Main  —- 

1330  ON  STOP  GOSUB  2710：  STOP  ON 

1340  K$=RIGHT$(D$,5):  GOSUB  2040  'Search 

1350  ' 

1360  COLOR  15,1：  LOCATE  50,  0 

1370  PRINT  USING  "カラム No.  ：  mn;  SCX+CUR; 

1380  I$=INKEY$:  IF は THEN  1380 

1390  J$=INKEY$:  IF  J$<>""  THEN  1$=I$+J$:  GOTO  1390 

1400  CALL  KNID(I$,I$,1,1):  CALL  KACNV(I$,I$) 
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1410 

IF 

I$>="a"  AND  I$<=' 

"z"  THEN  1$ 

=CHR$(A. 

1420 

IF 

I$=CHR$(30)  THEN 

1540 

1430 

IF 

I$=CHR$(31)  THEN 

1620 

1440 

IF 

I$=CHR$(28)  THEN 

1760 

1450 

IF 

I$=CHR$(29)  THEN 

17S0 

1460 

IF 

は ="S"  THEN  1990 

'SHOW 

1470 

IF 

I$="W"  THEN  2160 

'WRITE 

1480 

IF 

は ="D"  THEN  2450 

'DELETE 

1490 

IF 

I$="P"  THEN  2530 

'PRINT 

1500 

IF 

I$=" に OR は =" ィ" 

THEN  2210 

'INSERT 

1510 

IF 

は ="E"  OR は ="I" 

THEN  2710 

'END 

1520 

GOTO  1360 

1530 

一 Up  Cursor  ― 

-&H20) 


1540  GOSUB  1730  'Cursor  Off 

1550  IF  CUR>1  THEN  CUR=CUR-l:  GOTO  1590 

1560     IF  SCX=0  THEN  BEEP:  GOTO  1590 

1570       SCX=SCX-i:  LOCATE  0.1：  PRINT  ED$; 

1580        1=11：  GOSUB  1900  'D1SP  A  Data 

1590  GOSUB  1700  'Cursor  On 

1600  GOTO  1360  'Main 

1610  ' —  Down  Cursor  — 

1620  GOSUB  1730  'Cursor  Off 

1630  IF  CUR く 11 THEN  CUR-CUR+1:  GOTO  1670 

1640     IF  SCX=HX-11  THEN  BEEP:  GOTO  1670 

1650       SCX=SCX+i:  LOCATE  0,1：  PRINT  EU$; 

1660       '1=11：  GOSUB  1900  'Disp 1 Data 

1670  GOSUB  1700  "Cursor  On 

1680  GOTO  1360  'Main 

16S0  ' ―  Cursor  On  —- 

1700  I=CUR:  BK=12:  GOSUB  1900  'DISP  A  Data 

1710  RETURN 

1720  ' —-  Cursor  Off  -— 

1730  I=CUR:  GOSUB  1900  'DISP  A  Data 

1740  RETURN 

1750  ， 一 -  Up  Page  —- 

1760  SCX=SCX+10:  GOSUB  1820  'DispPage 

1770  GOTO  1360  'Main 

1780  ' —  Down  Page  — 

1730  SCX=SCX-10:  GOSUB  1820  'DispPage 

1800  GOTO  1360  'Main 

1810  ， —  Displ&y  P&ge  — 

1820  IF  SCX く 0  THEN  BEEP:  SCX=0 

1830  IF  SCX>MX-11  THEN  BEEP:  SCX=MX-11 
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1840  FOR  1=1 TO 11 

1850     GOSUB  1900  'Oispl 

1860  NEXT  I 

1870  GOSUB  1700  'Cursor  On 
1880  RETURN 

1890  ， 一-  Display 1 Datui  (  <I>th  ) —- 

1S00  J=SCX+I-i:  LOCATE  0,1 

1910  COLOR  15,1：  POKE  BC.BK 

1920  PRINT  R 1GHT$(SPACE$(5)+DT$( J) , 5) ； " "； 

1930  PRINT  RIGHT$(SPACE$(5)+TM$(J) , 5) ； " "； 

1940  PRINT  TX$(J);  EC$; 

1950  COLOR  9,1:  POKE  BC.BK 

1960  LOCATE  6.1：  PRINT  "に；: LOCATE  13,1: PRINT  "に； 
1970  BK=1 
1980  RETURN 

1990  * —-  Search  Data  -— 

2000  COLOR  1.1：  POKE  BC,3:  K$="" 

2010  LOCATE   0.  0：  PRINT  "日付 (xx/xx)";EC$: 

2020  LOCATE 11, 0:  INPUT  K$:  CALL  KACNV(K$.LEFT$(K$,5)) 

2030  CALL  KACNV(K$.K$):  K$=LEFT$(K$,5) 

2040  ' 

2050  1=0 

2060  IF  l>MX  THEN  2090 

2070     IF  DT$(I)=K$  THEN  2110 

2080  1=1+1：  GOTO  2060 

2090  BEEP:  LOCATE  0,0：  PRINT  K$; "の 予定はありません"; EC$; 
2100  FOR  W=l TO  500：  NEXT  «：  GOTO  2130 
2110  SCX=l:  CUR=l:  GOSUB  1820  'DispPage 
2120  ' 

2130  GOSUB  2630  'Disp  Top 

2140  GOTO  1360  'Main 

2150  ' ―  Write  Data  —- 

2160  DTX=SCX+CUR-i:  GOSUB  2300  'GetData 

2170  GOSUB  1820  'DispPage 

2180  GOSUB  1620  'DownCursor 

2190  GOTO  1360  'Main 

2200  ， 一-  Insert  Data  —- 

2210  DTX=SCX+CUR-1 

2220  FOR  1=MX-1  TO  DTX  STEP  -1 

2230     DT$(I+1)=DT$(I):  TM$(I+1)=TH$(I):  TX$(1+1)=TX$(I) 
2240  NEXT  I 

2250  GOSUB  2300  'GetData 
2260  GOSUB  1820  'DispPage 
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2270  GOSUB  1620  'DownCursor 
2280  GOTO  1360  'Main 
2230  ， -—  Get  Data  -— 
2300  COLOR  1,1：  POKE  BC.3 
2310  LOCATE 13,  0：  PRINT  DT$(DTX);  EC$;  :K$=，，" 
2320  LOCATE  0,  0:  INPUT  "日付 (xx/xx)";K$ 
2330  CALL  KACNV(K$,K$):  DT$(DTX)=LEFT$(K$,5) 
2340  LOCATE 13.  0：  PRINT  TM$(0TX);  EC$;  :K$="，， 
2350  LOCATE  0,  0:  INPUT  "時刻 (xx:xx)";K$ 
2360  CALL  KACNV(K$,K$):  TM$(DTX)=LEFT$(K$,5) 
2370  LOCATE  7,  0：  PRINT  TX$(DTX);  EC$;  :K$=，，" 
2380  LOCATE  0.  0：  INPUT  "メモ "； K$ 
2390  IF  LEN(K$)<=48  THEN  2410 

2400     CALL  KLEN(L.K$):  CALL  KHID(K$,K$, l.L-l):  GOTO  2390 

2410  TX$(DTX)=K$ 

2420  GOSUB  2630  'DispTopLine 

2430  RETURN 

2440  ' ―  Delete  Data  —- 
2450  DTX=SCX+CUR-1 
2460  FOR  I=DTX  TO  MX-1 

2470     DT$(I)=0T$(I+1):  TM$(I)=TM$(I+1):  TX$(I)=TX$(I+1) 
2480  NEXT  I 

2490  DT$(MX)=M":  TM$(MX)=n":  TX$(MX)="" 

2500  GOSUB  1820  'DispPage 

2510  GOTO  1360  'Main 

2520  ' —-  Print  Out  Page  —- 

2530  LPRINT  TAB(9) ； つ"； TAB(19) ；" に； CHR$(13); 

2540  LPRINT  "日付 時間  メモ 

2550  PM=SCX+CUR+10:IF  PM>MX  THEN  PM=MX 

2560  FOR  1=  SCX+CUR-1  TO  PM 

2570     LPRINT  "   "     ；  DT$(I); 

2580     LPRINT  TAB(  9);  "I  "；  TM$(1); 

2590     LPRINT  TAB(19); "に ； TX$(I) 

2600  NEXT  I 

2610  GOTO  1360  'Main 

2620  ' -—  Display  Top  Line  -— 

2630  COLOR  1,1：  POKE  BC,7 

2640  LOCATE  0,  0：  PRINT  " 日付"; EC$; 

2650  LOCATE  8,  0：  PRINT  "時刻"; 

2660  LOCATE 15,  0：  PRINT  "メ モ" 

2670  COLOR  9,1：  POKE  BC.7 

2680  LOCATE  6,0：  PRINT  "I";:  LOCATE  13,0:PRINT  "I"; 
2690  COLOR  15.1：  RETURN 
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2700  ' -—  FIN  — - 

2710  FOR  1=1 TO 10：  KEY(I)  OFF:  NEXT 1 
2720  STOP  OFF 

2730  OPEN  "schdul.dat"  FOR  OUTPUT  AS  It! 
2740  FOR  1=0  TO  MX 

2750     PRIM  «1,DT$(I);         TH$(I);  "，"；  TX$(I) 
2760  NEXT  I 
2770  CLOSE  #1 

2780  DEFUSR=&H3E  ：  D=tiSR(0)  'In it  func  keys 
2790  CALL  CLS:  END 
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 活用 サンプル プログラム ©   

― 簡易 漢字 エディタ  

漢字 ドライバ を 利用した サンプル プログラム のもう 1 つ は テキス ト エディ 
タ です. テキスト エディ タは 文字 どおり 文書 を 作成' 編集す る ツールの ことで 
す. ワードプロセッサ は， この テキスト エディットの 機能と プリンタに 印刷 
する ために 整形して 出力す る 機能 を 合わせ 持った もの を 指す 場合が 多い よ う 
です. 

ここで 紹介す る プログラム は 編集の 機能の 他に 印刷の 機能 も 合わせ 持って 
います. ですから， ワープロと 呼んでも 差し支えないの かもしれ ません 力、'， 
印刷の 機能が 貧弱と いう こ と と， 作者が テキスト エディ タ という 言葉が 好1 き 
だとい う 理由で， いちおう 漢字 エディタ という ことにして おきます. | 

この プログラムでの 目標 は 次の 2 つです. 

• インター レース モー ドを 利用す る ことで 最大 80 文字 X23 行 (半角 文 

字) の 表示 を 行う 
• 半角 文字と 全角 文字 を 完全に 取り扱う 

この 目標 を 実現す るた め プログラム はかなり 大きな ものと なり， また 処理 
の 高速 化の ために マシン 語の 助け を 借りる ことと なりました. 

■ プログラムの 実行 方法 

この プログラム は， BASIC で 記述され た メイ ン プログラムと マシン 語の 
サブルーチン 群の 2 つに 分けられます. マシン 語の プログラム は 直接 打ち込 
むこと はでき ません ので， マシン 語の バイナリファイル を 作成す る プロ グラ 
ムと エディ タ プロ グラム 本体の 2 つが 必要です. リスト 3.10 に バイ 十 リ 
ファイル 作成 プログラム を， リスト 3.11 に エディ タ 本体の プログラム を 示 
します. 

リ ス ト 3.10 を 実行す る と 、、kedusr.bin" という マシン 語の バイ ナ リファイ 
ルが 作成され ます. 1 度 バイナリファイルが 作成され る とこの 作成の ための 
プログラム は 必要な く なります が， いざと いう ときの ために 保存して おいた 
方が よいで しょ う. 
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エディ タを 使う に は， カレント ディ レクト リ上 にこの ファイルが ある こと 

を 確認して， リスト 3.11 を 実行 すれば よいので す. この プログラム は 一部 マ 
シン 語 を 利用して いますので， プログラム ミスに よって は 暴走の 危険が あり 
ます. ですから， 自分で 打ち込む 場合 は， 実行す る 前に 必ず プログラム を 
SAVE してお くべき です. また， この プログラム では， テキスト 領域 をで き 
る だけ 多く 確保す るた めに， 空き 領域が ほとんどありません. ですから 余計 
な スペース や， コメン トは 入力し ないように しそく ださい. 

固 プログラムの 操作 

この プログラムに は 大き く 分けて 2 つの モー ド があります. 実際に 文字 を 
打ち込ん でい く エディ ット モードと フ アイ ル 操作， 印刷な ど を 行う コ マン ド 
モー ド です. 

コマンド モード は， ファイルの 読み込み， 書き込み， 印刷な ど， 文字 入力 
以外の 操作 を 行う モードです. 起動時 はこの モードに なって います. 使用で 
きる コマ ン ド とその 機能の一 锭を表 3.5 に 示します. 各コ マン ドは それぞれ 
のキ一 を 押す ことで 実行され ます. 

エディ ッ ト モー ドは 実際の 文字 入力 作業 を 行う モ一 ド です. 基本的に は， 
キー を 押す とそ の 文字が 画面に 反映され て， テキスト が 作成 されて いきます. 
もちろん 漢字 も 入力す る ことができます. この エディ ッ ト モードで 使用で き 
る 特殊な キ一 とその 機能 を 次の 表 3.6 に まとめて おきます. 

ここで 注意す る 必要が あるの は TAB キーと リ ターン キーの 働きで しょ 
う. これら は 挿入モードと 上書き モードで まったく 異なって います. また， 
この 挿入/上番き モー ドは BASIC 上の ス クリーン • エディタと 異なって 
カー ソ ル 移動 や 改行な どで は 変化 し ません. 

画 容釐の 制限 

この エディ タで 扱う ことので きる テキス トの 量に は 制限が あ ります. 具体 
的に は， 半角 文字で 約 8000 文字 以内， そして 行数と して は 200 行 以内と いう 
ものです. なお， ここでの 行数 は 実際の 画面で 表示され ている 行数の ことで 
フ アイ ル 中での 改行の 数で は あ り ません. 
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コマンド 

锒 能 

(D 

エディツ ト モードへ はいる 

テキスト を ブリント ァゥ 卜する 

テキスト を ファイルに s き 込む 

ファイル を 読み込む 

回 

エディタの 実行 を 終了す る 

表 3.5 コマンド モードで 使用で きる キーと その 機能 


キ 一 

m  能 

1  CTRL  |  +|  E|,  |  T  1 

カー ソ, レを 上に 移動 

1 ハ Tn，     1     *    1  \y  1         1    |  | 

|  CTRL | + 1  X  |  ，  1 1 \ 

カー ソ J レを I7 し 移動 

l"  A^ni    \    ,   1  — .  t 『一、 

1 CTRL  |  +  [£j  ， ビ 

カーソル を 右に 移動 

1 CTRL  |  +|  S|,  |*— | 

カー ソジレ を (— 核 SS 

|CTRL|  +[WJ 

前 ページに 戻る 

I  CTRL ]  +IZ] 

次 ページに 進む 

I  CTRL  |  +|R|,  |  INS  | 

挿入 Z 上资き モー ドの切 り 換え 

|  CTRL  |  +|M|,  1  RET  1 

挿入 モー ド では 行 を 2 つに 分割 
上扭き モー ド では 次 行の先頭に 移動 

I  CTRL ]  +IOJ 

行 を 2 つに 分割 

|  CTRL  |  +|  1  |,  |TAB| 

挿入 モー ド では 次の タブ ス ト ップ まで 空白 を 挿入 
上徑き モー ド では 次の タ ブス ト ッ ブま で 移動 

LCTRL J  +[Gj,  iDELj 

カーソル 位 S の 1 文字 を 削除 

lCTRL」            I  BSJ 

カーソルの 左側の 1 文字 を 削除 

( CTRL ]  + [Yj 

カーソルの ある 行 を 削除 

( CTRL  ]  +[Pj 

削除され た 行 を 貼り付ける 

I  CTRL  |  +(_L|,  I  HOME  J 

画面 を扭き 直す 

[ESC] 

コマンド モードへ 戻る 

表 3.6 エディツ ト モードで 使用で きる 特殊 キーと その 機能 


これらの 制限の ため， 巨大な テキス ト を 編集 するとい つた 用途に は 使 いづ 
らいでしょう 力、'， 手紙 や レポート， パソコン通信の アップロード 用の ファ^ 
ル 作成な ど パーソナルな 用途に 使う 分に は 十分 活用で きる はずです. 


109 


曰 本 語 処理 機能 


■ プログラムの 変更 • 解析 

前に も 述べ ま したよう に， この プログラム は メモリ 領域 を大 fi に 使って い 
るた めに， 機能 を 拡張した りする 余裕 は 残念ながら ほとんどありません. し 

かし， 漢字 モー ドゃ 横幅の 設定 (1020 行） は 自分の 見やす ぃモ一 ドに 変更して 
おくと いいでしょう. たとえば， とにかく たくさん 文字 を 表示 させたい とき 
は， 

1020  CALL  KANJI3  ：  WIDTH  80 

などと すると 力、 細かい 字が 読み づ らい 場合 は， 

1020  CALL  KANJI0  ：  WIDTH  32 

とするな どです. これ 以外に も， 色 や パレットの 変更， あるいは メッセージ 
を 自分 用に 差し換える こと ぐらい は简 単にで きる でしよ う. 

また， マシン 語 サブルーチンの 内容 を 知りたい という 人の ために それぞれ 
の ルーチンの 内容 を 簡単に 紹介して おきます. 

•  DEFUSR  =&HCA02  ：  S=USR(A$) 

A$ の 1 文字 目が 半角 文字なら S=0， 全角 文字の 1 バイ ト 目なら 
S  =l を 返す 

•  DEFUSR1  =  &HCA04  ：  POKE  &HCA00,  C  ：  S=USR1(A$) 
A$ の C 文字 目が 半角 文字なら S=0, 全角 文字の 1 バイ ト 目なら 
S=l， 全角 文字の 2 バイト 目なら S=2 を 返す 

•  DEFUSR2=&HCA06  ：  L=USR2(A$)  ：  S  =  PEEK(&HCA01) 

A$ の 先頭から 何 文字 目まで を テキス ト として 読み込め るか を L に 返 
す. S は その 次の 文字に よって 変化す る （ファイルの 読み込み 用） 
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リスト 3.10 バイナリファイル 作成 用 プログラム "MKUSR.BAS 


100  '  Hake  "KEDUSR.BIN" 

110  '  Written  by  TeK 

120  clear  200,£hc9ff 

130  st=&hca00:  ad=st 

140  read  a$:  if  a$="*"  then  200 

150   poke  ad,val("&H"+a$) 

160  ad=ad+l 

170  goto 140 

200  bsave  "kedusr. bin",st,ad-l 
210  print  "Complete!" 
220  end 


10000 

DATA 

01.00,18 

04 

18.13 

18 

57 

FK 

03.20.3D.EB.7E.B7.28 

10010 

DATA 

34.23.5E 

23 

56,06 

t)l 

18 

14 

FE, 03,20, 2C.EB.7E.4F 

10020 

DATA 

3A.00.CA 

3D 

B9 

30 

IE 

3C 

47 

23,5E,23,56,1A,13,CD 

10030 

DATA 

9A.CA.2E, 

01 

38 

05 

21) 

10 

F4 

18, 10, 10,02, 18,00, 13 

10040 

DATA 

10.EB.2C 

18 

m 

2E, 

03 

18 

02 

2E,04,26,00,3E,02,32 

10050 

DATA 

63.F6.22 

F8 

F7 

C9 

3E 

05 

ZE 

00, 32,01, CA, 18.EC.FE 

10060 

DATA  03.20.F3 

EB 

7E 

4F, 

23 

5E, 

ZZ 

56,2E, 00,79, B7, 28， EA 

10070 

DATA 

1A.FE.20, 

30 

14 

FE 

28, 

0C 

FE,09,28,04,3E,02)18 
CD,9A.CA,30.07,0D,3E 

10080 

DATA 

D9.3E.03, 

18 

D5 

3E 

04 

18, 

D! 

10090 

DATA 

卜 

Si 

13, 

2C 

13, 

2C 

0D, 

IB 

D2,FE，81,3F,M，FE，FD 

10100 

DATA 

D0.FE.A0, 

D8 

FE 

EO, 

3F 

C9 

10110 

data 

V 
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リスト 3.11 漠字 テキス ト エディタ 本体 *KED.BAS* 


1000  ，  MSX 漢字 ド ライハ' 対応 テキスト 1テ' イタ 

1010  '  Vers. 1.0       Written  by  TeK 

1020  CALL  KANJI2:ffIDTH  64 

1030  COLOR  15,12,12:CALL  CLS:CALL  PALETTE 

1040  CALL  PALETTE(4,1,1.3):CALL  PALETTE(12,0,2,0) 

1050  MAXFILES=l:CLEAR  8300, &HC9FF:DEF INT  A-Z:P0KE  &HFAFO.&HC0 

1070  DM=200:DIM  L$(DM).LK(DM) 

1080  PRINT  "** 澳字 I テ 'イタ Vers. 1.0  **":PRINT: PRINT  "-- 仕 車中 --" 

1100  BLOAD  "kedusr.bin" 

1110  AD=&HCA00 ： DEFUSR=AD+2:DEFUSRl=AD+4 : DEFUSR2=AD+6 

1120  GOSUB  1550： ON  STOP  GOSUB  1380： STOP  ON 

1130  ' -—  M-J'%-T 

1140  COLOR  15,12:F0R  1=0  TO  YM-l: GOSUB  3190:NEXT  I 

1150  GOSUB  1400 

1160  A$=INKEY$:IF  A$=""  THEN  1160  ELSE  CM=(INSTR(CK$. A$)+l)/2 

1170  IF  CM=0  THEN  1160  ELSE  ON  CM  GOTO  1200, 1220, 1240. 1260, 1320 

1190  '**  Edit  xx 

1200  I=YM:G0SUB  31S0:GOSUB  3250： GOSUB  1620： GOTO  1150 


1210 

'%% 

Print  *x 

1220 

C$= 

"印刷": GOSUB 

1500： 

GOSUB 

3310： 

:C0T0 

1150 

1230 

'xx 

S&ve  ** 

1240 

C$= 

"保存": GOSUB 

1500： 

GOSUB 

3420： 

:G0T0 

1150 

1250 

'** 

Load  *x 

1260 

c$= 

"読 込": GOSUB 

1500： 

IF  SF 

THEN 

1300 

1270  LOCATE  8, は: PRINT  "テキストが 保存され ていません"; 
1280  LOCATE  8,YH:PRINT  "本当です か （Y/N) ? "; 
1290  A$=INPUT$(1):IF  INSTR("YyM,A$)=0  THEN  1150 
1300  GOSUB  3530： GOTO  1140 
1310  ，**  Quit  t* 

1320  IF  SF  THEN  1350  ELSE  C$=" 終了"： GOSUB  1500 

1330  LOCATE  2.YS:PRINT  "保存し ないで 止める の （Y/N)?"; 

1340  A$=INPUT$(1):IF  INSTR("Yy".A$)=0  THEN  1150 

1350  COLOR ほ， は: CALL  CLS:PRINT  "お疲れ様 . また どうぞ."; 

1360  STOP  OFF: END 

1370  ' -—  [CTRU+CSTOP] 

1380  RETURN  1140 

1390  ' -— コ7 ンド 行の 表示 

1400  GOSUB  1520： LOCATE  0,YM:PR[NT  "コマンド？"； 
1410  RESTORE  U70:CK$="" 
1420  READ  X:IF  X<0  THEN  COLOR  15.12:RETURN 
1430  READ  Y.K$,C$: LOCATE  X.Y+YM 
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1440  CK$=CK$+K$+CHR$(ASC( K$)+32) ： CALL  AKCNV(K$.K$) 

1450  COLOR  7,12:P0KE  BC.6  ： PRINT  K$; 

1460  COLOR  1.12:P0KE  BC,ll:PRINT  C$ ；: GOTO  1420 

1470  DATA 14,0，^","編粜",22,0,"卩","印劂" 

1480  DATA  6,1,"5"，"保存"，14,1,"し"，"読込",22,1,"(1","終了",-1 

1500  GOSUB  1520： COLOR  7. 12: POKE  BC.6 

1510  LOCATE  0,YM:PRINT  "C"C$"]";  ： COLOR  1,12:P0KE  BC.IHRETURN 
1520  LOCATE  0.YM.0: COLOR  1,12:P0KE  BC. 11 
1530  PRINT  ES$"K  ":PRINT  ED$;: RETURN 
1540  '-— 変数の 初期化 
1550  KY$="": RESTORE  1720 

1560  READ  D:lF  D=-l  THEN  1570  ELSE  KY$=KY$+CHR$(D):G0T0  1560 

1 570  XS=PEEK(4HF3B0) ： XM=XS- 1 ： YS=PEEK(&HF3B 1 )-2 : YM=YS- 1 ： BC=&HF3EA 

1580  ES$=CHR$(27) ： ED$=ES$+"K":DD$=CHR$(127) : FL$="TMP" 

1590  FOR  1=0  TO  DH:L$(I)="":LK(I)=0:NEXT 1 

1 600  CX=0 ： CY=0 ： LY=0 ： EL=0 ： MF=- 1 : SF=- 1 : CB$="" ： CK=0 : RETURN 

1610  * -—  mm-y 

1 620  LOCATE  CX.CY:C$=INPUT$(1): LOCATE  , , 0 

1630  IF  C$<"  "OR  C$=DD$  THEN  1680  ELSE  PRINT  C$; 

1640  T$=INKEY$:lF  T$=""  THEN  GOSUB  2550： GOTO  1620 

1650  IF  T$<"  "  OR  T$=DD$  THEN  GOSUB  2550： C$=T$: GOTO  1680 

1660  PRINT  T$;:C$=C$+T$:G0T0  1640 

1670  ' -—  Control  Code 

1680  IF  C$=DD$  THEN  GOSUB  1790： GOTO  1620 

1690  IF  C$>ES$  THEN  ON  ASC(C$)-27  GOSUB  2080. 2 は 0,2 190, 2270: GOTO  1620 

1700  ON  INSTR(KY$.C$)  GOSUB  2080,2150.2190.2270, 1790. 1760,2470.3170.28 

30 , 2860 ,3140. 1730, 2230 .2010. 2350 

1710  IF  C$<>ES$  THEN  1620  ELSE  RETURN 

1720  DATA  4,19,5,24,7,8,9,12,13.15,16,18,23.25,26,-1 

1730         奸| 人/上 畨 切り換え 

1740  HF=N0T  MF: GOSUB  3250： RETURN 

1750  ，  -—  BS 

1760  IF  CX=0  AND  LY+CY=0  THEN  RETURN  ELSE  GOSUB  2150 
1770  LOCATE  CX.CY.0 
1780  ' ---  DEL 

1790  SF=0 : BY=LY+CY ： TY=CY : LR=LEN(L$(BY))-CX 
1800  IF  LR=0  THEN  1840 

1810  POKE  AD,CX+i:iF  USR1(L$(BY))  THEN  LR=LR-2  ELSE  LR=LR-1 

1820  C$=RIGHT$(L$(BY) . LR) ： L$(BY)=LEFT$(L$(BY) , CX)+C$ 

1830  PRINT  C$;:IF  LK(BY)=0  THEN  PRINT  ES$;'，K"; : RETURN 

1840  IF  BY>=EL  THEN  RETURN 

1850  TX=LEN(L$(BY)):IF  TX=0  THEN  2020 

1860  IF  TX<XM  OR  USR(L$(BY+1))<>1  THEN  1890 
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1870   IF  TY<YS  THEN  LOCATE  TX.TY:PRINT  " "； 

1880   LK(BY)=l: RETURN 

1890  L$(BY)=L$(BY)+L$(BY+1) 

1900  IF  TX+LEN(L$(BY+1))>XH  THEN  1930 

1910    IF  TY<YS  THEN  LOCATE  TX,TY:PR1NT  L$(BY+1);ED$; 

1920   LK(BY)=0 ： BY=BY+ 1 ： T Y=TY+ 1 ： GOTO  2020 

1930  POKE  AD,XS-TX:lF  USR1(L$(BY+1))=1  THEN  K=XM  ELSE  K=XS 

1940  IF  TY>YM  THEN  1960 

1950   LOCATE  TX.TY'.PRINT  LEFT$(L$(BY+1) , K-TX) ； SPC(XS-K) ； 

1960  L$(BY+1)=MID$(L$(BY) , K+l) : L$(BY)=LEFT$(L$(BY) , K) 

1970  LK(BY)=i:BY=BY+l:TY=TY+l 

1980  IF  TY<YS  THEN  LOCATE  0,TY:PRINT  L$(BY);  ED$: 

1990  IF  LK(BY)  THEN  1840  ELSE  RETURN 

2000        行 削除 

2010  BY=LY+CY : CB$=L$(BY) ： CK=LK(BY) ： CX=0 : T Y=C Y 
2020  L$(BY)="":LK(BY)=0:lF  BY=EL  THEN  2050 
2030  FOR  I=BY  TO  EL_1:S»AP  L$(I),L$(I+1) 
2040  SWAP  LK(I),LK(I+1):NEXT  I 

2050  IF  TY<YM  THEN  LOCATE  0,TY:PRINT  ES$"M": :GOSUB  3250 
2060  EL=EL-i:lF  TY>YM  THEN  RETURN  ELSE  l=YM:COTO  3190 
2070  * —- 右 

2080  S=USR(MID$(L$(LY+CY),CX+1, 1)) 

2090  IF  S=l THEN  CX=CX+2  ELSE  IF  S=0  THEN  CX=CX+1 

2100  IF  S=3  AND  CY+LY<EL  THEN  CX=0:GOTO  2270： RETURN 

2110  IF  CX<XM-1  THEN  RETURN  ELSE  IF  CX>XM  THEN  2130 

2120  IF  LK(LY+CY)=0  OR  LEN(L$(LY+CY))>XM  THEN  RETURN 

2130  CX=0:GOTO  2270 

2140  左 

2150  IF  CX=0  THEN  IF  LY+CY=0  THEN  RETURN  ELSE  CX=XM:GOTO  2190 
2160  POKE  AD.CXUF  USR1(L$(LY+CY))=2  THEN  CX=CX-2  ELSE  CX=CX-1 
2170  RETURN 
2180  ' -— 上 

2190  IF  CY>0  THEN  CY=CY_l:GOTO  2390 
2200  IF  LY=0  THEN  RETURN  ELSE  LY=LY-1 
2210  LOCATE  MM: PRINT  ES$,,M"ES$"H"ES$,,L"; 
2220  I=0:GOSUB  3 190： GOTO  2390 
2230         頁 上 

2240  IF  LY=0  THEN  RETURN  ELSE  LY=LY-YM+i: IF  LY<0  THEN  LY=0 
2250  GOSUB  3 170: GOTO  2390 
2260  ， -— 下 

2270  IF  CY+LY>=EL  THEN  RETURN 

2280  IF  CY<YM  THEN  CY=CY+ に GOTO  2390 

2290  LY=LY+l:PRINT  ES$"H，'ES$"M"; : LOCATE  0,YH:PRINT  ES$"L"; 
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2300  I=YM:GOSUB  31S0:GOTO  2390 

2310  GOSUB  2320： I-YM:G0T0  3190 

2320  IF  CY<YM  THEN  CY=CY+i: RETURN 

2330  LY=LY+l:PRINT  ES$"H"ES$"M"; :G0T0  3260 

2340  '頁 下 

2350  IF  LY+YM>=EL  THEN  RETURN  ELSE  LY=LY+YH-1 
2360  IF  LY+YH>=EL  THEN  LY=EL-YM 
2370  GOTO  2250 
2380  * —-  CX の 調整 
2390  IF  CX=0  THEN  RETURN 

2400  IF  LK(LY+CY)AND  CX=XM  AND  LEN(L$(LY+CY))=XM  THEN  CX=CX-1 
2410  POKE  AD,CX+i:S=USRl(L$(LY+CY)) 

2420  IF  S=3  THEN  CX=LEN(L$(LY+CY))  ELSE  IF  S=2  THEN  CX=CX-1 
2430  RETURN 

2440  IF  CX<LEN(L$(Ly+CY))  OR  LK(LY+BY)=0  THEN  RETURN 
2450  CX=0:GOTO  2270 
2460  ' -—  TAB 

2470  D=8-(CX  MOD  8): IF  D>XS  THEN  D=XS-CX 

2480  IF  MF  THEN  C$=SPACE$(D): PRINT  C$ ；: GOTO  2550 

2490  CX=CX+D:BY=LY+CY:LL=LEN(L$(BY)) 

2500  IF  CX>=LL  AND  LK(BY)=0  THEN  CX-LL: RETURN 

2510  IF  CX>XM  THEN  CX=0:GOTO  2270 

2520  POKE  AD.CX+i:lF  USR1(L$(BY))=2  THEN  CX=CX+1 

2530  RETURN 

2540         文字列 入力 

2550  SF=0 ： BY=LY+CY ： T Y=CY: LC=LEN(C$) ： I F  MF  THEN  2740 
2560  ' -— 上 S 

2570  LR=LEN(L$(BY))-CX:IF  LC>LR  THEN  2620 

2580   LR=LR-LC:POKE  AD.CX+LC+i:S=USRl(L$(BY)) 

2590    IF  S=2  THEN  PRINT  "  ";:C$=C$+"  ":LR=LR-1 

2600  L$(BY)=LEFT$(L$(BY).CX)+C$+R1GHT$(L$CBY),LR) 

2610   CX=CX+LC:GOTO  2440 

2620  L$(BY)=LEFT$(L$(BY),CX)+C$ 

2630  IF  LEN(L$(BY))<XS  THEN  CX=CX+LC: RETURN 

2640  GOSUB  2700： IF  LK(BY)=0  THEN  2670 

2650  CX=0:IF  CY<YM  THEN  CY=CY+i:GOTO  2550 

2660   GOSUB  2310: LOCATE  CX.CYrPRINT  C$ ；: GOTO  2550 

2670  LK(BY)=i:BY=BY+i:lF  CY<YM   THEN  CY=CY+i:GOTO  2680 

2680   GOSUB  2320： LOCATE  0,CY:PRINT  C$; 

2690  PRINT  ES$;"K";:TY=CY+1: GOSUB  2720:CX=LEN(C$): RETURN 

2700  POKE  AD,XS-CX:lF  USR1(C$)=1  THEN  K=XH  ELSE  K=XS 

2710  C$=MID$(L$(BY) ,K+1): L$(BY)=LEFT$(L$(BY) , K) ： RETURN 

2720  GOSUB  3050： I =TY: GOSUB  3190： L$(BY)=C$: LK(BY)=0: RETURN 
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2730  挿入 

2740  R$=M I D$(L$(BY) , CX+ 1 ) ： C$=C$+R$ 

2750  L$(BY)=LEFT$(L$(BY) , CX)+C$ ： PR  INT  R$; 

2760  IF  LEN(L$(BY))<XS  THEN  CX=CX+LC: RETURN 

2770  GOSUB  2700 :CX=CX+LC: PRINT  ES$;"K"; 

2780  IF  CX>=K  THEN  CX=CX-K: GOSUB  2320 :TY=BY-LY: GOTO  2800 

2790    IF  CY=YM  THEN  GOSUB  3260 

2800  IF  LK(BY)<>0  THEN  2930 

2810  LK(BY)=1 :BY=BY+1 :TY=TY+2:G0T0  2720 

2820  * —  CR 

2830  IF  MF=0  THEN  IF  BY<EL  THEN  CX=0:COTO  2270  ELSE  RETURN 
2850  '— 行 分 剖 

2860  BY=LY+CY ： C$=M I D$(L$(BY) , CX+ 1 ) ： L$(BY)=LEFT$(L$(BY) , CX) 

2870  CX=0:PRINT  ES$;"K";: ぽ LK(BY)  THEN  2910 

2890   BY=BY+l: GOSUB  2310:TY=CY:GOSUB  3050： GOTO  3020 

2910  LK(BY)=0: GOSUB  2310:TY=CY-1 

2920  '-— 挿入の 後始末 

2930  TY=TY+1 ： BY=BY+l: L$(BY)=C$+L$(BY) 

2940  IF  LEN(L$(By))>XH  THEN  2970 

2950    IF  TY<YS  THEN  LOCATE  0.TY:PRINT  L$(BY); 

2960   LK(BY)=0: RETURN 

2970  POKE  AD.XSMF  USR1(L$(BY))=1  THEN  K=XM  ELSE  K=XS 

2980  C$=M 1D$(L$(BY),K+1): L$(BY)=LEFT$(L$(BY) , K) 

2990  IF  TY<YS  THEN  LOCATE  0.TY:PRINT  L$(BY);SPC(XS-K); 

3000  IF  LK(BY)  THEN  2930 

3010  LK(BY)= 1 ： BY=BY+ 1 ： TY=TY+ 1 ： GOSUB  3050 

3020  L$(BY)=C$:LK(BY)=0:IF  TY<YS  THEN  LOCATE  0,TY:PRINT  C$; 

3030  RETURN 

3040  ' —- 画面の 下 をスゥ D - ft 
3050  EL=EL+1:L$(EL)="":LK(EL)=0 
3060  IF  BY く EL  THEN  3090 

3070    IF  TY<YS  THEN  LOCATE  0,TY:P 匿 ES$;"K"; 
3080  RETURN 

3090  FOR  l=EL  TO  BY+1  STEP  -i:SWAP  L$(l), L$(I-1) 
3100  SWAP  U(I).LK(I-1):NEXT  I 

3110  IF  TY<YS  THEN  LOCATE  0,TY:PRINT  ES$"L"; ： GOSUB  3260 
3120  RETURN 
3130  '-- 行 貼付 

3140  TY=CY:BY=LY+CY:CX=0:GOSUB  3050:L$(BY)=CB$:LK(BY)=CK 
3150  LOCATE  0,CY:PR1NT  L$(BY);:  RETURN 
3160  ' —- 全 固 面 表示 

3170  FOR  1=0  TO  YN: GOSUB  3190： NEXT  I ： GOTO  3250 
3180         I 行 目 を 表示 
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3190  IF  I>YM  THEN  RETURN  ELSE  LOCATE  0,1.0 
3200  IF  LY+I>EL  THEN  3230  ELSE  PRINT  L$(LY+I); 
3210    IF  LEN(L$(LY+I))<XS  THEN  PRINT  ES$;T; 
3220  RETURN 

3230  COLOR  11:P0KE  BC. 4： PRINT  "'"；： COLOR  15,12:PRINT  ED$;: RETURN 
3240  •— 状鸱 表示 

3250  LOCATE  J:  IF  MF  THEN  PRINT  ES$"y4";  ELSE  PR! NT  ES$Mx4"; 

3260  LOCATE  0,YS,0:COLOR  1:P0KE  BC.7 

3270  IF  MF  THEN  PRINT  "く 挿入 >"; ELSE  PRINT  "< 上 #f> "； 

3280  PRINT  "  [ESC]=37 ンド 'モ- ド"； 

3290  PRINT  ED お： COLOR 15, 12： RETURN 

3300  ， 一- テキスト を 印 期 

3310  LOCATE  8,YS:PRINT  "[ESC]=37>K -t-K "； 
3320  LOCATE  8,YM:PRINT  "何 か キ- を 押してく ださい"； 
3330  A$=INPUT$(1):IF  A$=ES$  THEN  RETURN 
3340  LOCATE  8. YS: PRINT  "印刷 中です.."； ED$; 
3350  FOR  1=0  TO  EL 
3360   LPR1NT  L$(I); 

3370    IF  LK(I)=0  AND 卜 EL  THEN  LPRINT  CHR$(&HO);CHR$(&HA); 

3380  NEXT  I 

3390  PRINT  "終了."； 

3400  RETURN 

3410  ' -— テキストの 保存 

3420  COSUB  3780： ON  ERROR  GOTO  3490 

3430  LOCATE  8,  YS:  PR  INT  "喾 込み 中です. ."ED$; 

3440  OPEN  FL$  FOR  OUTPUT  AS  81 

3450  FOR  1=0  TO  EL:PRINT  »1,L$(I); 

3460    IF  LK(I)=0  AND  I<EL  THEN  PRINT  81,CHR$(13);CHR$(10); 
3470  NEXT  I 

3480  CLOSE  #i:SF=-i: PRINT  "終了."；： RETURN 

3490  PRINT  "失敗"；： LOCATE  8.YN 

3500  PRINT  "何 か キ- を 押してく ださい" ED$; 

3510  A$=1NPUT$(1): RESUME  3770 

3520  ' —- テキストの 読 込み 

3530  GOSUB  3780 

3540  LOCATE  4,YS:PRINT  "読 込み 中.." ED$; 

3550  GOSUB  1590： ON  ERROR  GOTO  3750 

3560  OPEN  FL$  FOR  INPUT  AS  81: CLOSE  ttl 

3570  OPEN  FL$  AS  #1 LEN-128: FIELD  #1,128  AS  ZZ$ 

3580  X=0:P$="":AL=LOF(1) 

3590  IF  AL<=0  THEN  3720  ELSE  IF  AL>127  THEN  1=128  ELSE  l=AL 
3600  GET  a 1 ： AL=AL- 1 ： Z$=P$+LEFT$(ZZ$, I ) ： P$="" 


117 


日本 醜理 機能 


3610  I L=USR2(Z$) ： T=PEEK(AD+ 1 ) ： I F  IL=0  THEN  3660  ELSE  L$(EL)=L$(EL)+LEF 
T$(Z$.  ID 

3620  IF  LEN(L$(EL))<XS  THEN  3660 

3630   POKE  AD,XK:IF  USR1(L$(EL))=2  THEN  K=XM  ELSE  K=XS 

3640  L$(EL+1)=HID$(L$(EL),K+1):L$(EL)=LEFT$(L$(EL),K) 

3650   LK(EL)=i:GOSUB  3730： IF  EL=DN  THEN  3720  ELSE  3620 

3660  IF  T=0  THEN  3590  ELSE  IF  T=l THEN  P$=RICHT$(Z$. 1):C0T0  3590 

3670  IF  T<>3  THEN  3700 

3680   X=LEN(L$(EL)):D=8-(X  K0D8):IF  X+D>XS  THEN  D=XS-X 

3690   L$(EL)=L$(EL)+SPACE$(D):GOTO  3710 

3700  IF  T=4  THEN  LK(EL)=0:GOSUB  3730： IF  EL=DM  THEN  3720 

3710  Z$=MID$(Z$,IL+2):  IF  Z$=""  THEN  3590  ELSE  3610 

3720  CLOSE  ftHPRINT  ".. 終了."；： RETURN 

3730  EL=EL+i: LOCATE  U.YSiPRINT  US 1NG"<###>"; EL ；： RETURN 

3740  'disk  ERROR 

3750  IF  ERL=3560  THEN  LOCATE  4. YS: PRINT  "新しい 7 アイ ル です. "； 

3760  RESUME  3770 

3770  ON  ERROR  GOTO  0： RETURN 

3780  '--  7バ* 名 入力 

3790  LOCATE  8, YS: PRINT  "(省略す ると ，"FL$"'  )"ED$; 
3800  LOCATE  8,YM:PRINT  "7バ》 名：" ED$; 
3810  LINE  INPUT  D$: IF  M<>""  THEN  FL$=D$ 
3820  LOCATE  15,YM:PRINT  FL$ ；: RETURN 
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ここで は 新し く 設定され た 規格， MSX-MUSIC について， その ベースと な 
る FM 音源の し く み を 中心に 説明して いきます. 


MSX-MUSIC 

MSX は 標準で PSG 音源と いう サゥン ド 機能 を 装備 しています. しかし； 
この PSG 音源で は， 好みの 音色 を 作り出す ことが 難しく， と く に リアルな 楽 
器 音な ど は 望めませんでした. このため， ゲームの BGM などで は， ソフト 
ハウス 力、' 独自に 音源 IC を カート リ ッジに 内蔵したり， 高等 テクニック を 駆 
使して 対応したり してきました. しかし， これらの 方法 は一 般 ユーザーが 自 
作の プログラムに 利用す る こと はでき ませんで した. 

しか し， 以前， MSX に も MSX- AUDIO という FM 音源 を 使つ た サゥン ド 
機能が， オプション 装備と してで はあり ますが 用意され ました. MSX 
-AUDIO は FM 音源に よる 髙 品位な 音質 はもち ろん のこと， よ り リアルな サ 
ゥン ドが 楽しめる サンプリングが できたり， 鍵盤 を 付ければ 本格的な シン セ 
サイ ザ 一に もなる という 高機能な ものでした. ところ 力 S 単純に ゲーム 等で 
FM 音源に よる BGM を 付けたり する よう な 用途に はちよ つと 高価な もの 
だった ため， あまり 一般の ユーザーに は 受け入れられなかった よう です. 

そこで， もっと 機能 を 絞り 込んで， 一般の ユーザーが 手軽に FM 音源 を 使 
用で きる ように， 新たに 用意され たのが， MSX-MUSIC です. これ は， 松 下 
電器から 発売され ている パナ 'ァ ミ ユー ズメ ン ト '力一 ト リ ッ ジ （FM- PAC) 
の FM 音源 機能 と 基本的に 同じ も のです. 
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画 MSX-MUSIC  0)mi 

MSX- MUSIC では， 音源 IC として， ヤマハの OPLUYM2413) という 
FM 音源 IC 力、' 使われて います. この IC は， MSX-AUDIO で 使われて いた， 
OPUY8950) から， ADPCM サンプリング などの 機能 を 取り除き， 機能 を 
FM 音源に 紋 り 込んだ IC です. 

この IC の 採用に より， MSX- MUSIC では， メロ ディ 音 を 9 音 または， メ 
口 ディ 音 6 音 + リ ズム音 5 音の 2 つの 発音 モー ドを 持って いて， この 2 つの 
モード をソフ トウ エアで 切り替える ことができます. そして， 両 モードと も， 
同時に 違う 音 を 発音す る ことが 出来ます. 

この OPLL は， 内部に 音色 ROM を 搭載して おり， そのな かに あらかじめ 
15 音色 分の データが 登録され ている ため， 従来の FM 音源 IC では 非常に 面 
倒 だ つ た 音色の 設定 も ， 音色 番号 を 指定す る だけ で 設定で きる ようになって 
います. 

もちろん， 効果音 や 独自の 音 を 作って 使う ことができる ように， 1 音色 分の 
ォ リ ジナル 音色 レジスタ も 用意され ています. 

MSX-MUSIC の FM 音源 も 従来の PSG 音源と 同じように， BASIC か ら 
PLAY 文で 制御す る こと がで き ま す. 

， FM 音源の 発音の 仕組み 

FM 音源 は， リ アルな 楽器 音 や 独自に 創 り 出した 複雑な 音 を， 比較的 簡単に 
鳴らす ことができます. PSG では 難しかった リアルな 音 作り を 可能に してい 
る FM 音源と は， いったい どのよ うな もので しょ う 力、. 

園 音の 仕組み 

FM 音源 音 を 知る ために は， まず 音 そのものの 仕組み を 知って おく 必要が 
あります. ここで は 簡単に， 音の 仕組みに ついて 触れて おきましょう. 

音と はいった いどうい う もの か を 表すに は， 一般的に， 音の 大きさ， 音の 
高さ， 音色， という 3 つの 要素 を 使います. 音 は， これらの 3 要素 力、' 複雑に 
絡み合って できて いると いう ことができます. これらの うち， 音の 大きさ や， 
音の 髙さ に関して は 誰でも 感覚的に 理解で きる ものです が, 音色に ついては， 
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1 MSX-MUSIC と FM 音， 

ちょつ と 感覚的に 理解す る こと は 難しいで しょ う. 

そこで， 音 を 視覚 的に 捉えて みる ことにしましょう. 音 を铌気 信号に 直す 
と， 波形で 表わす ことができます. 波形と して 見た 場合， 音の 髙 さは 波の 細 
か さ （周波数の 髙 さ） にあたり， 音の 大 き さ は 波の 振幅 （ゆれ 幅） の 大きさに 当 
り ます （図 4.1). 


時間  波長 力 <m い 時間 

図 4.1 音の 性質と 波形 

普通， 人間の 耳に 聞こえる 音 は， その 音 (基音） とその 音の 何 倍 かの 周波数 
(倍音） をい くつ も 含んで います. 基音の 何 倍 かの 周波数と いう こと は， 音程 
の髙ぃ 音と いう ことにな り， それならば 和音と して 聞こえ そうな ものです 力、'， 
整数 倍の 倍音 は 基音と よ く 混じる ため， 人間の 耳に は 単音に 感じられます. 

こ の 周波数 成分 (倍音） の 含まれ 方に よって， 音色が 決定され てい るので す. 
ここで は 簡単に， 音色 は， r その 音の 周波数 成分の 含まれ 方」 という ことにし 
ます. 

さて， さきほど 音 は， 音の 高さ， 大きさ， 音色で 構成され ている と 説明し 
ましたが， もう 1 つ， 音 は 時間が たつに つれて 変化して いきます. した 力、' つ 
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て， さきほどの 3 要素に 加え， その 音の 時間 的な 変^: も 考えなければ なり ま 
せん. そこで， 音 を 決定す るた めの 要素 は， 

音の 高さの 時間 的 変化 
音の 大きさの 時間 的 変化 
周波数 成分の 時間 的 変化 

という 3 つで あると いう ことができます. 

つまり， ピアノの 音 を 構成す る これら 3 要素 を， なんらかの 方法で そつく 
りに 合成す る ことができれば， ピアノの 音 を 創り 出せる という ことにな り ま 
す. 


匿 オペレータの 機能 

さて， 音の 签本を 理解した ところで， FM 音源の 発育の 仕組み を 詳しく 見て 
いきまし よ う. 
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FM 音源の 基本 発音 要素 は オペレータと いわれる 発振器です. オペレータ 
は サイン ウェーブ メモリ （SIN)， フェイズ ジネ レー タ （PG)， ェンぺ ローブ 
ジェネレータ （EG) の 3 つの 装置 か ら 構成され ています （図 4.2) . 

サイン ウェーブ メモリの なかには， その 名のと おり 1 サイクル 分の 正弦波 
を デジ タ ルに 変換 し た デー タ が 納め られ てい ま す. 

フ ヱイ ズジヱ ネレ一 タ は その オペレータの 基本周波数 を 決め る ための も の 
で， つねに 与えられた 周波数に 対応す る ノコ ギリ 波 を 出力して います. 

サイ ン ウェーブ メモリの なかに 納められた データ を， フェイズ ジ エネ レー 
ターからの ノコ ギリ 波に 合わせて 読み出す と， 図 4.3 のよう に 正弦波 を 出力 
する ことができます. つまり， のこぎり 波 1 サイクルで サイン ゥ ヱーブ 1 サ 
ィ クルカ、' 読み出される ようになって います. 

たとえば， フ ヱイ ズジヱ ネレ一 タに 与える 周波数 を 高く して， サイン ゥェ一 
ブ メモリ を 読み出す 速度 を 速く すれば， 出力され る 波形の 周波数 も 高くな り， 
反対に， フェイズ ジェネレータに 与える 周波数 を 低く すれば， 出力され る 波 
形の 周波数 も 低くな ります. 


図 4.3 サイン ウエーブ メモリの 跣み 出し 
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エンベロープ ジェネレータ は， 上記の 方法に よって 作られた 音に， 時間 的 
な 音量の 変化 を 付ける ための ものです. たとえば ピアノの， 鍵盤 を 押した と 
きに 一番 音力、' 大きく， 押し 続けて いると だんだん 音が 小さくなる， というよ 
う な 音量の 変化 を 電気 的に 再現す る ものです. 

楽器の 音に はいろ いろな 音量 変化の パターンが あるので すが， 代表的な も 
のとして， 減衰して いく 音と， ある 一定の レベルで 持続す る 音に 分けられ ま 

す. OPLL では この 2 つの パターン をシ ユミ レートす る ことができます. そ 
して この 2 つの パターン の 音の 時間 的な 音量 変化 を 4 つの パラ メータ で 表現 
しています. ハ。 ラメ一 タは それぞれ， 


持続 音の 場合 

①  アタック • レイ ト 

②  ディケイ • レイ ト 

③  サス ティン • レベル 

④  リ リース. レイ ト 


音の 鳴 り 初めから 音堡が 最大になる ま での 時間 
最大から サス ティン' レベルになる までの 音 S の 

減 4?t 率 

音 a が 落ち 付く レベル 

キー を 離してから 音 a が o になる ま での 時間 


減衰 音の 場合 

①  アタック. レイ ト 

②  ディケイ ，レイ ト 


音の 鳴 り 初めから 音 g が 最大に なる ま での 時間 
最大から サス ティン • レベルになる までの 音 a の 
減衰率 

③  サス ティン 'レベル ディケイ 'レイトから リリース 'レイ 卜へ 変化す 

る 音 s 

④  リリース 'レイ ト サス ティン • レベルからの 音 里の 減衰率 

を 表して います. また， 図 4.4 の Key  ONZOFF は それぞれ， 鍵盤 を 押し 
た 場合 と 離し た 場合に 相当 します. 
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鄉 音の 

エンベロープ 

波形 


音 fit 


key  ON/OFF - 


持統 音の 

エンベロープ 

波形 


音 13 


key  ON/OFF- 


AR  ： アタック • レイト 
DR  ： ディケイ • レイ ト 
RR  ： リリース ，レイト 
SL  ： サス ティ ン 'レベル 


図 4.4 ェンぺ ローブ パターン 


画 周波数 合成 

さて， オペレータ 1 つで は， ただの 正弦波 発生 装置で しかありません. 音 
色 を 作る ために は， いろいろな 周波数 成分 力、' 合成され た 波形 を 作らなければ 

なりません. そこで， オペレータ を 2 つつ なげて 使います （図 4.5). 

この 2 つの オペレータ を 区別す るた めに， オペレータ 1 のこと を モジュ 
レ 一タ， オペレータ 2 のこと を キャリアと 呼びます. 
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イード バック 


周波数の 入力 


周波数の 入力 


！モジ ユレ 一夕 


キャリア 


図 4.5    2 つの オペレータ をつ なげる 


まず， モジ ユレ一 タで 作られた 出力と， キャリアの フェイズ ジェネレータ 
の 出力と をた し 合わせます （図 4.6) . 


モジ ユレ 一夕の 出力 


1 

[キャリアの pg の 出力] 


図 4.6 モジ ユレ 一夕の 出力と キャリアの PG の 出力 を 合成す る 


合成され た 信号で キャリアの サイン ウエーブ メモリ を 読み出します， そう 
すると， サイン ウェーブ メモリ を 読み出す タイミングが 変化して， いろいろ 
な 倍音 成分 を 含んだ 波形が できあがり ます （図 4.7). つま り， モジ ユレ ータの 
出力で， キャリアの 周波数に 変化 を 加えて キャリア を 変調す る わけ です. 
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1 MSX-MUSIC と FM 音 di 


サイン ウエーブ メモリの サイン 波 1 1 PG の 出力と モジ ユレ 一夕からの 波形 をた した もの 


+ レ ペル 


|]g 終 的な キヤ リ ァの 出力 波形 | 
図 4.7 キャリアでの サイン ウェーブ メモリの 銃み 出し 

モジ ユレ ータ 側の 出 力の 音量 変ィ匕 （エンベロープ パターン による 音量 変ィ 匕） 
は， キャリアの 出力す る 音の， 周波数 成分の 音量の 時間 的変ィ 匕と なって 現れ 
ます. 

モジュ レー タ 側の フェイ ズ ジェネレータの 周波数 は， キヤ リ ァの 出力す る 
音の 周波数 成分 (倍音） の 含まれ 方に 影 饗します. キャリア 側の フェイ ズジェ 
ネ レー 夕の 出力 は， キヤ リアから 出力す る 音の 高さに 影響し ます. 

キヤ リ ァ 側の ェンぺ ローブ ジェネレータ は， 最終的に できあがった 音の 大 
きさ を 制御し ます. 

この 調子で， オペレータ をた くさん つないで いけば， もっと 多くの 周波数 
成分 を 含んだ 信号が できあがります 力、'， 自分自身の 出力 を 自分に 加える こと 
によっても， 同じような 効果 を 出す ことができます. これ を フィードバック 
と 呼びます. フィー ドバッ クの 量が 増えれば， 含まれる 周波数 成分が 多く なつ 
て， 鋭い 音になります. 

このように， モジ ユレ ータ， キャリアの フェイズ ジェネレータに 設定す る 
周波数 や， ェンぺ ローブ パターンの 設定， モジ ユレ一 タの フィードバックの 

i を 変化させる ことによって， 「音の 髙 さの 時間 的 変化 j,  「音の 大きさの 時!^ 
的 変化」， 「周波数 成分の 時間 的 変化」 を 自在に 作り出せ， 複雑な 音 を 再現 f 
きる わけです. 
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オペレータの 数 を 増や していけば， もっとた くさ んの 変化. を 付け る こと 力、' 

できる のです が， 残念ながら OPLL では オペレータの 数が 1 音に つき 2 オペ 
レー タに なって いて， その 2 つの オペレータの つなぎ 方 も 直列に 固定され て 
いるた め， 創り 出せる 音色 もお のず と 限られて きます. 

し 力 1 し， 2 オペレータ でも， かなり 複雑な 波形 を 出力で きます ので， ゲーム 
や 自作の プログラムの BGM などに は 十分な ものと なって います. 


き 


に!： 

；：1 E 


：/i 


■  •. 
. ■： 


識 画 《^ 綱 蒙' 謂' 鄉- 


： ： ：: 

U 


に! お： 纖越 /^ぼ 删 きぉまゴ禮 
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^%  MSX-MUSIC 拡張 BASIG 
=1 マンド」 ファレン ス 


MSX-MUSIC の FM 音源 を BASIC から 制御す る ための 拡張 BASIC の 
コ マン ドを 解説して いきます. これ は， 松 下から 発売され ている バナァ ミ ユー 
ズ メント カー トリ ッジ （FM-PAC) に 内蔵され ている 拡張 BASIC と 同じ も 
のです. 

この 拡張 BASIC は， 今までの PSG 音源と OPLL の FM 音源 を 同時に 制 
御す る ことが 可能に なって います. ですから， FM 音源 9 音 +PSG 音源 3 音 
の 12 音 を 同時に 発声す る ことができます. これ ま で 使われて き た PSG 用の 
MML (ミュー ジッ クマ クロ ランゲージ） と 文法 は 基本的に 同じです から， こ 
れ までに 作られて き た， PSG 音源 用の プロ グラム を 多少の 変更で FM 音源 
用の MML と して 使う ことができます. 

また， MSX-AUDIO の 拡張 BASIC との 互換性が あります ので， MSX 
-AUDIO 用に 作ら れた プログラム も 多少の 変更で MSX-MUSIC でも 使う 
ことができる ようになります. MSX-AUDIO の コマンドで， MSX-MUSIC 
で 使えない コ マン ド について は， 本章 末で 説明し ます. 

MSX-MUSIC 拡張 BASIC の コマンドに は 以下の も のが あ ります. 

CALL  MUSIC 

AUDREG 

BGM 

PITCH 

PLAY 

STOPM 

TEMPER 

TRANSPOSE 

VOICE 

VOICE  COPY 
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MUSIC 


參 書式 *    CALL  MUSIC  [([く モード〉] [， [0] 

[， く PLAY 文 第 1 文字列への チャンネル 数〉 

[, く  PLAY 文 第 2 文字列への チャンネル 数〉 

[， …… [， く  PLAY 文 第 9 文字列への チャンネル 数〉] 

…… ]]]])] 

MSX-MUSIC の システム を 初期化し ます. パラメータ として， 9 個の FM 
音源の チャンネル を どのように 使用す るか を 指定し ます. 

MUSIC 文に より， 初期化 を 行う まで は， すべての 拡張 BASIC ステ一 ト メ 
ン トは 使用で きません. 

く モード〉 は 0 力、 1 で， 0 は リズム 音 を 使用し ない モードで， 1 は リズム 音 
を 使用す る モードです. リズム 音 を 使用す る 場合に は チャンネル 7，  8，  9 を 
リ ズム音 用に 使用 します ので， メロ ディ 音に 使え るの は 残 りの 6 チャンネル 
になります. したがって， PLAY 文で 使用す る チャン ネ ノレ 数 は リズム 音 使用 
時 は 6 以下， リズム 音 を 使用 しないと き は， 9 以下で ある 必要が あります. 

チャンネルの 使用 割当 は， PLAY 文で は， チャンネル 番号の 小さい 方 （1， 
2，  3 …… ) から 割り当てます. 

パラメータ を 1 つ 以上 指定した 場合， 他の パラメータの 省略時の 値 は 0 と 
なります. 


PLAY  #2,  "cccc",  "dddd    "eeee",  "cccc",  "ffff" 


FM 音源 出力 
チャンネル 


使用され ない 


図 4.8   MUS に 文の チャンネル 割当 
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PLAY 文の 文字列への チャンネル 数に， 0 を 指定したり 省略した りする 
と はでき ません. 以下の 例 を 参照して ください. 

•0 を 設定した 場合 
CALL  MUSIC(0,0,0,5,0) 
この場合 illegal  function  call" になる 

• 省略した 場合 
CALL  MUSIC(0,0，1,,2) 
この場合 "Syntax  error* になる 

パラメータ をす ベて 省略した とき は， 

CALL  MUSIC(1,0,1,1,1) 

という 設定 をした のと 同じになります. すなわち， 

•  FM 音源の チャンネル 1 を PLAY 文の 最初の 文字列に 割 り 当てる 

•  FM 音源の チャンネル 2 を PLAY 文の 2 番目の 文字列に 割 り 当てる 

•  FM 音源の チャンネル 3 を PLAY 文の 1 番目の 文字列に 割り当てる 
• リズム 音 を PLAY 文の 4 番目の 文字列に 割り当て 使用す る 

•  PLAY 文の 5 番目 以降の 7 番目 ま での 文字列 は PSG 音源の 制御に 割 
り 当てる 


という 葸味 になります. 

MUSIC 文 を 実行す ると， システムの 割り込みの フックが MSX- MUSIC 
の システム ソフ トウ エアに リ ンク される ので， 割り込み 処理 ルーチンの ォ一 
バ 一^ 、つ ドカ 、'増え， システムの スルー ブッ ト 力、' 低下し ます. また， MUSIC 文 
は ワーク エリ ァ 保護の ために 内部で CLEAR 文に 相当す る こと を 行って い 
るので， HIMEM  (CLEAR 文の 第 2 パラメータに 相当し ます） が 807 バイ ト 
小さくな り， 変数 はすべ てク リアされ ます. 
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AUDREG 


* 窖式 *    CALL  AUDREG (く レジス 夕 番号〉， く 値〉！:，  く チャンネル 番号〉]) 

音源 チップの レジスタに 直接 値 を 害き 込みます. レジスタ 番号， レジスタ 
の 機能の 内容に ついては， 次章の レジスタ 表 を 参考に して く ださい. 

どの レジスタ にも 値 を 書き込む ことができ ます 力、'， システム ソフ ト ウェア 
が 割 り 込みな どで 頻繁に 書き 込んで い る レジスタ に は， 効果がない 場合 や， 
システムの 再 立ち上げが 必要な 場合が あ り ます. 

く チャンネル 番号〉 は， 省略す るか， 0 を 指定し なければ なりません. この 
く チャン ネ ノレ 番号〉 は， MSX-AUDIO 拡張 BASIC と の 互換性 を と る ために 用 
意され ている もので， MSX- MUSIC では， 意味 を 持ちません. 

リスト 4.1 音色の 設定 を レジスタ 直接 S き 込みで 行う 


100  CALL  MUSIC 

110  CALL  VOICE  C0PY(91.863) 

120  CALL  V01CE(863) 

130  PLAY  «2,"04V は CDEFGAB05C" 

140  CALL  PLAY(0.A):IF  A=-l  THEN 140 

150  CALL  AUDREGC0.&B1 1001 111) 

160  PLAY  #2,"04V15CDEFGAB05r 


BGM 


攀窨式 *    CALL  BGM  (く 変数〉） 

PLAY 文の 実行 を バックグラウンド 処理と して 実行す るか どうか を 指定 
します. 

音楽の 処理で は， ゲーム 等の プロ グラムで， BASIC の 処理 をしながら 音楽 
を 鳴らす ことができ るよ う になって います. この こ と をバッ ク グラウン ド処 
理 といい ます. 
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100  CALL  KANJIl:CALL  MUSIC: SCREEN  8 
130  CALL  BGH(l) 

140  COLOR  255：  PR  I  NT  "バックグラウンド 処理 をして います。 ' 
t~50  GOSUB  200 
160  CALL  BGM(0) 

170  COLOR  255：  PR  I  NT  "バックグラウンド 処理 をして いません ( 


E  MSX-MUSIC 拡! S  BASIC コマンド リファレンス 

PLAY 文で は， MSX の 60 分の 1 秒 ご と にか かる 割 り 込み 信号 を 使って， 
BASIC プロ グラムの 実行と PLAY 文の 実行 を 切り替えながら 処理して い 
ます. バックグラウンド 処理 を 禁止す ると， PLAY 文の 実行が 終わる まで 
BASIC プログラムの 実行が されな く なり ます. 


BAS にの 処理 匚 


MSX-MUS にの 処理 


b1 


4- 


割り込み 割り込み 割り込み 時間 

図 4.9 バックグラウンド 処理の 概念 図 


〈変数〉 は 0 ま たは 1 の 値 を とります. 
CALL  BGM(O) 

と 指定す ると， PLAY 文の バック グラウン ド 処理 を 行いません. 
CALL  BGM(l) 

と 指定す る と， PLAY 文の バック グラウン ド処理 を 行います. 

PLAY 文に よる 初期化で は， バック グラウン ド 処理が 指定され ています 
が， く 変数〉 に 0 を 与える ことで， フォアグラウンド 処理に する ことができ ま 
す， 


リスト 4.2 バックグラウンド 処理 を 行う 


マ d 


マ d 


マ- 
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180  GOSUB  200 
190  END 

200  PLAY  »2, "8 168V 10005" , nO 13eV095O4" , "§08§V 10006" 
220  PLAY  82, "C8F+8G4F+8D8F+4L8GCEGF+DF+4", "G2D2C2D2" 
230  GOSUB  300 

240  PLAY  82,"G8F+8G4F+8D8F+4L8GCEGBAG4","G2D2C2<G2>'， 
250  GOSUB  300 

260  PLAY  #2, "G8F+8G4F+8D8F+4L8GCEGF+DF+4" . "G2D2C2D2" , "L8GDBDF+DAF+CEGE 

<A>DF+D" 

270  GOSUB  300 

280  PLAY  82, "C8F+8G4F+8D8F+4L8GCEGBAG4". "G2D2C2<G2>"» "L8GDBDF+DAF+CEGE 
<B>DG4" 

285  GOSUB  300： RETURN 
300  FOR  1=1 TO 13 

305  X= I NT(RND(1)«255) ： Y= I NT(RND( 1 )«255) :C=!NT(RND(1 )*255) 
310  LINE  (X.Y)-(Y,X),C,BF 
320  NEXT  I ： RETURN 


PITCH 


• 書 式*    CALL  PITCH (く ピッチ 1>  [， く ピッチ 2>]) 

FM 音源 で 発生す る 楽音の 音髙 （ピッチ） を 指定し ます. く ピッチ〉 の 範囲 は 
410~459 で 単位 は [Hz] です. 中央 C のす ぐ 上の A 音の 周波数で 音 髙を表 
します. トランス ポーズと は 独立に 設定で き， デフォルトの 値 は 440 です. 

ピッチ （または， トランス ポーズ 値） を 変える と リズム 音 や 音程 を 持たない 
音 を 除く  FM 音の 音の 髙 さが 変化し ます. PSG 音源に は 作用 しないので 注 
意して く ださい. 

ピッチ 2 は 指定 しても 無視され ます. これ は MSX- AUDIO 拡 張 BASIC 
との 互換性 を とる ために 用意され ている もので MSX-MUSIC では 意味 を 持 
ちません. 

トランス ポーズに ついては， TRANSPOSE 文の 項 を 参照して く ださい. 
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リスト 4.3 順次 ピッチ を 変えて 演奏す る 


100  CALL  MUSIC 
105  FOR  1=0  TO  49 
110  CALL  PITCHC410+1) 
120  PLAY  82," い 5V は A" 
130  NEXT  I 


PLAY 

* 書式 *    PLAY  [#  く モード〉，] く 文字列 1>  [， く 文字列 2> 

[， く 文字列 3>  •••  [，  く 文字列 13>]]] 


PLAY 文 は 音楽 を 演奏す る もので， FM 音源 9 音と 従来の PSG 音源 3 音 
の 最大 12 声まで 同時 発声が 可能です. く 文字列 n〉 に昝 かれた ミ ュ一ジ ッ クマ 
クロ ランゲージ （MML) が 演奏され ます. 他の 拡張 命令と 異なり CALL 文 は 
必要ありません. 

くモ一 ド〉 は 0 から 3 ま での 値 を と り ， PLAY 文の 音源 や 動作 モー ドを次 
のように 設定し ます. 

0 か 省略され た とき は PSG のみが 音源 となり， 文字列 は 最大 3 つまでと な 
ります. 従来の PLAY 文と 互換性が あります. 

1 のとき は， Illegal  function  call" となります. これ は MSX-AUDIO 拡 
張 BASIC と の 互換性 を とる ために 用意され ている もので, MSX-MUSIC で 
は 意味 を 持ちません. 

2 または 3 のとき は， FM 音源， リズム 音， PSG 音源 を 使用で きます （2 の 
ときと 3 のとき で 動作に は 違いはありません）.  ！ 

く 文字列〉 と 音源の 関係 は，. CALL  MUSIC 文で 設定され た MML の 個数 
に 対応して， 
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<FM 音源 用 文字列 1>， •••，  く FM 音源 用 文字列 n>， 
く リ ズム音 用 文字列〉， <PSG 音源 用 文字列 1>, 
く PSG 音源 用 文字列 2〉，  く PSG 音源 用 文字列 3> 

となります. また， MUSIC 文で リ ズム音 を 使用し ない モー ドに 設定した 場合 
は， リ ズム音 用 文字列 を カンマと ともに 省略し なければ なりません. 

例と して， デフォルトの MUSIC 文の 設定に 対する 文字列の 配列 を あげる 
と， 次のようになります. 

PLAY  #2，  く FM 音源 用 文字列 1>， く FM 音源 用 文字列 2>， 
く FM 音源 用 文字列 3>，  く リズム 音 用 文字列〉， 
く PSG 音源 用 文字列 1>, <PSG 音源 用 文字列 2>, 
<PSG 音源 用 文字列 3> 

MSX-MUSIC では FM 音源 用に 従来の MMU ミュージック マクロ ラン 
ゲージ） に 若 千の 拡張 をして います. FM 音源 用 に 新設 された MML につい 
て 説明し ます. そのほかの コ マン ド について は 従来と 同じです. 

Qn  (l^n^8) 

音の 長さの 設定で 決められる 長さ （ステップ タイム） と， その 間に 実際に 音 
を 出して いる 長さ （ゲート タイム） との 比 を 設定し ます. n の 値 は 1~8 で， た 
とえば 4 に 設定す ると， ゲート タイムの 長さ は， ステップ タイムの 長さの 4/ 
8 になります. デフォルト では 8 に 設定され ています. PSG 音源 用 文字列の 
な か で 使用 し た 場合 は 無視され ます. 

{}  n  (l^n^64) 

連符を 表します. n で 指定され た 音 長 を {} のなかの 音符の 個数で 等分して， 
{} のなかの 音符の 音程で， その 長さの さ を 発声し ます. けの なかには 音符， 
休符 以外の 文字 を 指定す る こと はでき ません. この コマ ン ドは FM 音源に 対 
しての み 有効で， PSG 音源 用 文字列の なかで 使用す る と エラ一 となります. 

@n  (0^n^63) 

文字列と 対応して いる FM 音源の チャンネルの 音色 を， n で 指定す る 音色 
に 切り換えます. 音色 番号に ついては， VOICE 文の 頊を 参照して ください. 
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音色 番号 表の なかで OPLL  VOICE の 欄に 指定の ない 音色に ついては， 同， 
に 1 音色し か 設定で き ません. も し， OPLL  VOICE の 指定の ない 音色 力 * 複数 
指定され た 場合 は， いちばん 最後に 指定した 音色 力、' 採用され ます. PSG 音源 
用 文字列の なか で 使用 し た 場合 は 無視され ま す. 

@Vn    (OSn さ 127) 

FM 音源に 対する 音量 を 細か く 設定し ます. FM 音源で は PSG よりも 細か 
く 音量 を 設定す る ことができます. PSG 音源 用 文字列 のなか で 使用 し た 場合 
は 無視され ます. 

@Wn  (1 さ nS64)  j 
n で 指定した 長さ だけ 何もし ないで 待ちます. この コマ ン ドは 次に 解説す 
る Yr,  d コ マン ド 等で， 音 を 発声させる 場合に 有効です. Rn コ マン ド では， | 
発音 をい つたん 停止して しまい ますが， この コマ ン ド では 本当に 何もし まや 
ん. 

PSG 音源 用 文字列の なか や， CDE 等の 音符の あとに 使った 場合 は， Rn コ 
マン ドと 同様です. 

Yr,  d 

OPLL の レジスタに 直接 値 を 害き 込み ます. どの レジスタ にも 値 を 書き込 
むこと がで き ま す 力、'， システム ソフトウェアが 割り込みな どで 頻繁に 書き 込 
んで いる レジスタに は， 効果がない 場合 や， システムの 再 立ち上げが 必要な 
場合が あります. 

PSG 音源 用 文字列の なかで 使用した 場合 は 無視され ます. 

その他の MML コ マン ド について は 次の一 览表を 参照して く ださい. 
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文 字 

意  味 

値のと る, 

デフォルト 

FM 節 

PSGfS 

Mn 

エンベロープ 周期の 設定 

1^n^65535 

M255 

― 

o 

Sn 

エンベロープ 形状の 設定 

SO 

― 

o 

Vn 

音 世の 設定 

0^n^15 

V8 

O 

o 

Ln 

長さの 割合 

ISn さ 64 

L4 

〇 

o 

Qn 

音の 長さの 割合 

1^n^8 

Q8 

O 

― 

On 

オクターブの 設定 

04 

o 

o 

> 

オクターブ を 1 つ 上げる 

o 

〇 

< 

オクターブ を 1 つ 下げる 

o 

o 

Tn 

テンポの 設定 

32^n^255 

T120 

o 

o 

Nn 

n で 指定 された S さ の 音 を 発生す る 

0^ng96 

〇 

o 

Rn 

休符の 設定 

R4 

o 

o 

A~G 

音程の 発生 

o 

o 

+,  # 

音 を 半音 上げる 

o 

o 

音 を 半音 下げる 

o 

o 

. (ピリオド） 

音符 や 休符の 長さ を 1.5 倍す る 

o 

o 

=x; 

パラメータ n を 変数 x で 設定す る 

o 

〇 

Xx; 

文字 変数 x に 入って レ 、る MML を 演奏 
する （注） 

〇 

o 

& 

タイ， 前後の 音 をつな ぐ 

〇 

o 

{}n 

速符， n 分 音符 を {  } の 中の 音程の 
個数で 等分に した 音 を 発生す る 

1^n^64 

Ln で 設定 
された 値 

o 

X 

@n 

n 番の 音色に 切り替える 

0^n^63 

o 

@Vn 

音 Q を 細く 設定す る 

0Sn^127 

o 

― 

@Wn 

n で 指定され た S さ だけ 状態 を 継 
続す る 

1gn^64 

Ln で 設定 
された 値 

o 

Rn と 同等 

Yr.d 

音源 チップの レジスタ r に d を 逬 き 
込む 

o 

Zd 

MSX-AUDIO では MIDI ポートへの 出 
力 だが， MSX-MUSIC で IJX ラ一 (こなる 

X 

ii: この マクロ を 推定した 場合， この マクロ 以降に 何 か マクロ を 害く こと はでき ません 害いた 18 およ エラーと なります. 
O …… 使用 可 x …… 使用 不可 一 …… 無視 


表 4.1 MML の 仕様と 各 音源への 対応 
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リ ズム 音源に 対する MML は， 1 つの MML で 同時に 複数の 音 を 発声す る 
ために， 楽音 用の ものと は 違った 記述 様式 をと ります. 
まず 鳴らしたい 楽器の 文字 を 並べて， その あとに 長さ を 指定し ます. 


文 宇 

意  味 

値のと る IS 囲 

B 

ノ  、'ス ドラム 音を^^ 

S 

スネ アドラム 音 をき 

M 

タム タム 音 をき 

c 

シン ハリ 治 を^ t 

H 

ハイ ハツ ト 音を^^ 

1 

iMl の 楽器の 音 11 を アクセント ポリ 
ユー ムに する 

n 

直前 ま でに 害 かれた 雜を敏 し、 
n 储腕 寺つ 

1 <  n  ^64 

Vn 

ァク セン トの付 いていない 楽音の 音 

a を 設定す る 

0  ^  n  £15 
デフォルト = 8 

@An 

ァク セン ト (7M 寸 いている 胄(7)^ 
を 設定す る 

0  ^  n  ^15 

Tn.  @Vn,  Rn. 

=x;,  Xx;, . は FM ち « 用と 同様て す. 

表 4.2 リズム 用 MML の 仕様 


リ ズムの 指定 は 以下の よ う に 行います. 
WBSH8H8S!H8H8" 

この 命令の 意味 は， 

• バス， ス ネア， ハイ ハット を 鳴らし， 8 分 音符 分 待つ 
• ハイ ハット を 鳴らし， 8 分 音符 分 待つ 

• ス ネア をァク セン ト 付きで ハイ ハツ 卜と 鳴らし， 8 分 音符 分 待つ 
• ハイ ハット を 鳴らし， 8 分 音符 分 待つ 

という ことになります. 


141 


ミュージック 機能 


リスト 4.4   PLAY 文に よる 演奏 


100  CALL  MUSIC(1, 0.2,2.2) 

110  PLAY  «2 . "§24T 1 50" , "6 1 2T 1 50" , "82 1 T 1 50 " , "T 1 50" 

120  PLAY  «2. "L804AE<A>EAE<A>EA<EA>AA<EA>AAE<A>EAE<A>EA<EA>AA<EA>A" , "03 
Al. A4G4F1 . F4E4", "R1R1R1R1",  "CB4S4B4S4B4S4CB4SCB4CB4S4B4S4B4S4CB4SCB4" 
130  PLAY  82, "L804AE<A>EAE<A>EA<EA>AA<EA>AAE<A>EAE<A>EA<EA>AA<EA>A","D1 
•D4E4<Al>","RlRlRlRr, "CB4S4B4S4B4S4CB4SCB4CB4S4B4SB4B4S4B4SCB 16S16C16 

140  PLAY  82,  ,,L804AE<A>EAE<A>EA<EA>AA<EA>AAE<A>EAE<A>EA<EA>AA<EA>A". "03 
Al. A4G4F1 . F4E4","L8AAAA>CCCC<AAAA>CCEE<AAAA>CCCC<AAAA>CCEE<","CB4S4B4S 

150  PLAY  #2, "L804AE<A>EAE<A>EA<EA>AA<EA>AAE<A>EAE<A>EA<EA>AA<EA>A","D1 
- D4E4<A1>", "L8DFDADFDADFA>DFD<AF<AAAAAAAA>AAAAAAAA" . "CB4S4B4S4B4S4CB4S 
CB4CB4S4B4SB4B4S4B4SCB16S16C16" 
160  GOTO 120 


PLAY( ) 


參番式 *    CALL  PLAY (く PLAY 文の ス ト リ ング 番号〉， く 変数 名〉） 

PLAY 文が 音楽 を 演奏 中 か どうか を 調べ ま す. PLAY 文の ミュー ジ ッ ク 
キューの 状態 を 調べ， 各 チャンネルが 音楽 を 演奏 中 かどう か 判断し， 演奏 中 
であれば- 1 を， そうでなければ 0 を 〈変数〉 に 代入し ます. ただし， 〈ス トリ 
ン グ 番号〉 として 0 が 与えられた 場合 は， いずれ かの ス ト リ ン グが 演奏 中で 
あれば- 1 を， そうでなければ 0 を ぐ 変数〉 に 代入し ます. 

PLAY 文の スト リン グ 番号 は， MUSIC 文で 指定 した スト リン グ数 +3 ま 
で 使えます. すなわち， MUSIC 文で 指定した FM 音源に 加え， 3 チャンネル 
の PSG 音源に 関し て も 演奏 中 か ど う かの 判定が でき ま す. 
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STOPM 


參 書式 *    CALL  STOPM 

バック グラウン ドで 実行中の PLAY 文の 音楽の 演奏 を 強制的に 停止 させ 
ます. 

リスト 4.5 演奏 を 中断させる 


100  CALL  KANJI1 
110  CALL  MUSIC 

120  ON  KEY  GOSUB  200:KEY(1)  ON 

130  PRINT  "とめる とき は F 1 キー を 抑して ください" 

140  PLAY  82."816eV10JJO6","604eV095O5"，"eEI58V095O5" 

150  PLAY  «2, "L8GDBDF+DAF+CEGE<A>DF+0", MG2D2C2D2" 

160  PLAY  82, "L8CDB0F+DAF+CEGE<B>DG4", "G2D2C2<G2>" 

170  PLAY  82, "L8GDBDF+DAF+CEGE<A>DF+D", "G2D2C2D2", "B2F+2E2F+2" 

180  PLAY  82, "L8GDBDF+DAF+CEGE<B>DG4", "G2D2C4D8E8G2". "B2F+2E4D8C8<B2" 

190  GOTO 140 

200  CALL  STOPM: RETURN  210 
210  END 


參 書式 參 CALL  TEMPER  (く 音律 番号〉） 

音律 を 与える ステート メン トで, FM 音源の 楽音の 音 高に 影鬱を 与えます. 
く 音律 番号〉 に は 0 から 21 の 音律 番号 を 指定し ます. デフォルト値 は 9 番の 
完全 平均 率です. 

音律 は 1 オクターブ 12 音 を どのような 比率で 分割す るか を 決める もので， 
古典音楽に は 古典 音律が 適して いると いわれます. 音律 を 変更す ると， そや 
ぞれの 音の 周波数の ずれに よって， 和音の 響き 方が 違って きます. 
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香" 

音 

律 

0 

ビタゴ ラス 

1 

ミー ン トーン 

2 

ヴ エルク マイ スター 

3 

ヴ エルク マイ スター (修正） 

4 

ヴェル クマイ スター (別） 

5 

キルンベルガー 

6 

キルンベルガー (修正） 

7 

ヴァ ロッティ • ヤング 

8 

ラモー 

9 

完全 平均律 (デフォルト） 

10 

純正 律 c 

メジャ 

一 (a マイナー） 

11 

$%JE 律 cis 

メジャ 

-(b) 

12 

純正 律 d 

メジャ 

-(h)  ■ 

13 

純 j£ 律 es 

メジャ 

-(c) 

14 

赃 律 e 

メジャ 

—(cis) 

15 

純正 律 f 

メジャ 

-(d) 

16 

純正 律 fis 

メジャ 

-(es) 

i / 

舰 律 g 

メジャ 

-(e) 

18 

純正 律 gis 

メジャ 

-(f) 

19 

純正 律 a 

メジャ 

-(fis) 

20 

純正 律 b 

メジャ 

-(g) 

21 

純正 律 h 

メジャ 

-(gis) 

(修正） ： 平 s 逮司 氏に よる 

衷 4.3 音镩衷 

リスト 4.6 音律 を 変えながら 演奏  

100  CALL  MUS!C(0,0,3) 
110  CALL  BGM(0) 
120  FOR  1=0  TO  21 
130  CALL  TEMPER(l) 
140  PRINT  I 

150  PLAY  82,W§0L4O4V15" 
160  PLAY  #2,"CDEFGAB05C" 
170  NEXT  I 
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參 書式 參 CALL  TRANSPOSE (く トランス ポーズ 値 1> 
[， く トランス ポーズ 値 2>]) 


FM 音源の 楽音に 対して セント 単位で 移調 を 行います. セン ト と は 半音 を 
100 と した 移調の 単位で， 1 オクターブ 上げる に は， +1200 を 与えます. 

トランス ポーズ 値と して 許される 値の 範囲 は ±12799 以内です が， 実際に 
は FM 音源の 音色に よって， ある 高さの 範囲 以外 は 制限され ます. 音 高精度 
は LSI の 制限に より ±2 セント 程度です. 

トランス ポー ズは ピッチと は 独立 して 設定で きます. MUSIC 文に よる ネ i 
期 化の 値 は 0 です. ピッチに ついては， PITCH 文 を 参照して ください. 

〈トランス ポ一 ズ値 2> は 指定しても 無視され ます. こ れは MSX- AUDI(j) 
拡張 BASIC との 互換性 をと るた めに 用意され ている もので， MSX-MUSIG 
では 意味 を 持ちません. 

リスト 4.7 半音ず っ移綢 し なが ら 演奏 


100  CALL  MUSIC 

110  CALL  BGM(0) 

120  FOR  1=0  TO  1200  STEP 100 

130  CALL  TRANSPOSED ) 

140  PLAY  S2,"T120a は eV105O5","n20ei38V095O4" 

150  PLAY  «2, "L8GDBDGDBDF+DAF+F+DAF+",  ,,L4GGGGDDDD" 

160  PLAY  82, ML8GE<B>EGECEF+DAF+F+DAF+", "EECCDDDD" 

170  NEXT  I 
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VOICE 


•  § 式 *    CALL  VOICE ([く チャンネル 1 用の ボイス〉]， 
[く チャンネル 2 用の ボイス〉], …… ， 
[く チャンネル 9 用の ボイ ス〉] ) 
(ボイス =@+ 数式 または 配列 変数 名） 

9 チャンネル ある FM 音源の それぞれに 音色 を 設定し ます. 音色の 設定 方 
法に は 2 種類の 方法が あ ります. 1 つ は システムに 備えられ ている 音色 ライ 
ブラ リを 使う 方法で， 0 から 63 の 音色の 番号 を 数式に より 指定し ます. この 
場合に は 数式の 前に @ 記号 を 付けて 次の 配列 変数 名 と 区別 します. 

プログラム により 音色 パラメータ を 与えて 設定す る 場合に は， 配列 変数に 
音色 パラ メータ を 入れて その 配列 変数 名 を 指定 します. 音色 パラメータの 
フ才一 マツ トの 詳細 は VOICE  COPY 文の 項 を 参照して ください. パラメ一 
タを 省略した チャンネルの 音色 は 変更され ません. 

表 4.4 の 音色 ラ イブ ラリ のうち， OPLL  VOICE の 欄に 指定の ある も の は 
OPLL 内 藤の 音色に 対応して います. それ 以外の 音色 は オリ ジナル 音色に 当 
たります. OPLL では， ォ リ ジナル 音色 は 1 音色 分し か 設定で き ません ので， 
これらの 音色 や， 自分で 作った 音色 を 配列 変数で 設定す る 場合に は， 同時に 
1 音色し か 設定で き ません. 複数 設定 しょうと し た 場合に は， パラメ一 タ 列の 
いちばん 左側の パラメータ か 最後に 実行した CALL  VOICE 文の 設定の み 
が 有効と なります. いくつかの 例 を 以下に 示します. 

CALL  V0ICE(@26,  @27) 
チャンネル 1 の 音色 は チャンネル 2 と 同じ 27 番の 音色になる 

CALL  VOICE(@20,@10) 
CALL  VOICE(, ,  @21) 
チャンネル 1 の 音色 は チャンネル 3 と 同じ 21 番の 音色になる 

CALL  VOICE(A, ,  B) 
チャンネル 1 の 音色 は チャンネル 3 と 同じ B という 配列 変数で 設定 
される 音色になる 
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き 色 

番& 

音色 名 

路号 

OP しし 
VOICE 

SI 

音色 名 

略号 

OPLIi 
VOIC^ 

0 

Piano 1 

Piano 1 

3 ピアノ 

32 

Piano  3 

Piano  3 

1 

Piano  2 

Piano  I 

33 

Electric  Piano  2 

ElectpiaZ 

1d ゥッ ド 
14 ベース 

2 

Violin 

Violin 

！ バイ ォ 
1 ') ン 

34 

Santool  2 

Santool  2 

3 

Flute 1 

Fulute 

4 フルート 

35 

Brass 

Brass 

4 

Clarinet 

Clarinet 

，ム 
心 ^ 
《伶 

36 

Flute  2 

Flute2 

5 

Oboe 

Oboe 

6 オーボエ 

37 

Clavicode  2 

Clavicd2 

6 

Trumpet 

Trumpet 

38 

Clavicode  3 

C!avicd3 

7 

Pipe  Organ 

PipeOrgan 

39 

Koto  2 

Koto  2 

8 

Xylophone 

Xylophone 

40 

Pipe  Organ  2 

Pipe0rg2 

9 

Organ 

Organ 

8 オルガン 

41 

PohdsPLA 

PohdsPLA 

10 

Guitar 

Guitar 

パ "タ- 

42 

RohdsPRA 

RohdsPRA 

11 

Santool 1 

Santool 

43 

Orch  L 

OrchL 

12 

Electric  Piano 1 

Elecpian 

は ミヒ实 

44 

Orch  R 

OrchR 

13 

Clavicode 1 

Clavicod 

45 

Synthesizer  Violin 

SynViol 

14 

Harpsicode 1 

Harpsicd 

二ず ン 

46 

Synthesizer  Organ 

SynOrgan 

15 

Harpsicode  2 

HarpscdZ 

47 

Synthesizer  Brass 

SynBrass 

16 

Vibraphone 

Vibraphn 

4乂 

48 

Tube 

Tube 

9 ホルン 

17 

Koto 1 

Koto 

49 

Shamisen 

Shamisen 

18 

Taiko 

Taiko 

50 

Magical 

Magical 

19 

Engine 1 

Engine 

51 

Huwawa 

Huwawa 

20 

UFO 

UFO 

52 

Wander  Flat 

WnderFIt 

21 

Synthesizer  bell 

SynBell 

53 

Hardrock 

Hardrock 

22 

Chime 

Chime 

54 

Machine 

Machine 

23 

Synthesizer  bass 

SynBass 

n シン セ 

"ベース 

55 

Machine  V 

MachineV 

24 

Synthesizer 

Synthsiz 

10 シン セ 

56 

Comic 

Comic 

25 

Synthesizer  Percussion 

SynPercu 

57 

SE-Comic 

SE-Comic 

26 

Synthesizer  Rhythm 

SynRhyth 

58 

SE - Laser 

SE- Laser 

27 

Harm  Drum 

Harp  Drum 

59 

SE  -  Noise 

SE-Noise 

28 

Cowbell 

Cowbell 

60 

SE-N  Star 1 

SE-Star 

29 

Close  H 卜 hat 

CIseHiht 

61 

SE-Star 2 

SE-Star2 

30 

Snare  Drum 

SnareDrum 

62 

Engine  2 

Engine  2 

31 

Bass  Drum 

BassDrum 

63 

Silence 

Silence 

表 4.4 音色 ライプ ラリー K 表 
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リスト 4.8  VOICE 命令に よる 音色の 設定 


100  CALL  MUSIC 

110  DIM  AX(15) 

120  FOR  1=0  TO 15 

130  READ  A$:AX(I)=VAL("&H"+A$) 

140  NEXT  I 

150  CALL  VOICE(A%,AX,A%) 

160  PLAY  #2,"04L4V15C", "04L4V15E", "04L4V15G" 

170  END 

1 80  DATA  6C43 , 6573 ,6948,7468, 1800,8,0,0,8A3,76F1,80,0,82, 17F2.80.0 


VOICE  COPY 


•  S 式 *    CALL  VOICE  COPY (く パラメータ 1>， く パラメータ 2>) 

配列と 音色 ライブラリ （0 ~ 63) の 間での データの 転送 を 行います. 

パラメータ 1 の 音色 パラメータ を パラメータ 2 に 転送し ます. @ と 数式が 
指定され たと き は， その 数式の 結果で 指定され る 音色 番号の 音色 データ 力、' 対 
象と なります. 

ソース （パラ メータ 1) に 指定で きる 音色 番号 は 0~63 の う ち OPLL 
VOICE の 欄に 指定が:! 念 音色の 番号です. 
デスティネーション （バラ メータ 2) に 指定で きる 音色 番号 は 63 に 限り ま 

す'  M 

ソース （パラメータ 1) に OPLL  VOICE の 欄に 指定 ct)^ 音色の 番号 を 指 

定 すると "Illegal  function  call" となります. @ 記号がない 場合の 変数 名 は 
配列 変数と みなされ， その 内容が 転送の 対象になります. 

音色 パラメータの 内容 は， 表 4.5 のとお りです. 1 つの 音色 パラメ一 タは 
32 バイトの 長さが あります. 配列 変数に コピーす る 場合に は， あらかじめ 
DIM 文に よって 32 バイ ト 分の 配列の 長さ を 宣言し なければ なりません. た 
とえば， 整数 型なら ば， 
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DIM  A%(15) 

のように 宣言し ます. 

表 4.5 になら つて 音色 パラメ一 タの 内容 を 配列 変数に 害き 込み， VOICEj 文 
で FM 音源の チヤ ン ネ ルに 直接^き 込む か， ま た は VOICE  COPY 文で 音色 
番号 @63 に 書き込めば， ォ リ ジナル な 音色 を 使う ことができ ます. 


オフ セッ ト 

b7 

b6 

b5 

bs  bi 

bo 

音色 名 （8 文字） 

8〜9 

ポ イス 移調 

10 

AMD* 

PMD, 

AMD/PMD* 

固定 ピッチ * 

フィードバック 

11—15 

(予 約） 

才 ベレー タ 0 

16 

AM 

PM 

EG 

KSR 

リ u に r 

17 

レベル キー スケール 

トータル レベル 

18 

アタック レイ ト 

ディケイ レイ 卜 

19 

サス ティ ンレ べソレ 

リ リース レイ ト 

20 

ベロ シティ セン シビリ ティ （0~8广 

21—23 

(予 約） 

才 ベレー タ 1 

24 

AM 

PM 

EG 

KSR 

MULT 

25 

レ ベルキ一 スケール 

ト一 タルレべ ゾレ' 

26 

アタック レイ ト 

ディケイ レイ ト 

27 

サス ティン レベル 

リ リース レイ ト 

28 

ベ □ シティ セン シビリ ティ （0〜8)* 

29〜31 

(予 約） 

*MSX-AUDI0 との 互換性 を 保った めに 用意され ている も ので, MSX- MUSK では 無視され る 


表 4.5 音色 パラメータ 表 
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リスト 4.9  VOICE  COPY 命令に よる 音色の 股定 


100  CALL  MUSIC 

110  DIM  AXC15) 

120  FOR  1=0  TO 15 

130  READ  A$:A%(1)=VAL(B&H"+A$) 

140  NEXT  I 

150  CALL  VOICE  COPY  (AX, 063) 

160  PLAY  #2,"06304L4V は C","08304L4V は E"，"O6304L4V は G" 

170  END 

180  DATA  6C43, 6573,6948, 7468, 1800, 8,0.0,8A3,76F1, 80,0,82, 17F2, 80, 0 


MSX-AUDIO の ステー トメ ント 

参考と して， MSX- AUDIO 拡 張 BASIC の ステートメントで， MSX 
-MUSIC では 使えない ステート メン ト を あげてお きます. これら を 指定す る 
と すべて "Illegal  function  call" となります. 

•  ADPCM/PCM 関係の ステー トメ ント 

CALL  CONVA,  CALL  CONVP,  CALL  COPY  PCM 
CALL  LOAD  PCM,  CALL  PCM  FREQ,  CALL  PCM  VOL 
CALL  PLAY  PCM,  CALL  REC  PCM,  CALL  SAVE  PCM 
CALL  SET  PCM 

• インス ツル メン ト 関係の ステー トメ ント 
CALL  INMK,  CALL  KEY  ON/KEY  OFF,  CALL  MK  PCM 
CALL  MK  TEMPO,  CALL  MK  VEL,  CALL  MK  VOICE 
CALL  MK  VOL 

•  MK 記録 関係の ステー トメ ント 

CALL  APPEND  MK,  CALL  CONT  MK,  CALL  MK  STAT 
CALL  PLAY  MK,  CALL  REC  MK,  CALL  RECMOD 

• 外部 プログラムの 呼び出し 
CALL  SYNTHE,  CALL  APEEK,  CALL  APOKE 
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パワフル 活用 


W  oPLL  YMS4 1 3 の 機能 

MSX- MUSIC 拡張 BASIC では， OPLL に 直接 値 を 書き込み OPLL を 制 
御す る ことができる ようになって います. ここで は OPLL の 機能 を 直接 使 う 
ことができる ように， OPLL の レジスタ を 解説して いきます. レジスタ 番号 
は 16 進数で 表されて います. 

■ レジスタ 0, 1 

レ ジス タ 0 はモジ ユレ一 タ オペレータへの， レジスタ 1 は キャリア オペ 

レ一タ への 設定になります. 


レジスタ 

b7 

b6 

b5 

b4 

b3 

b2 

bi 

bo 

00 

AM 

VIB 

EGTYP 

KSR 

： MULTI  > 

01 

AM 

VIB 

E6TYP 

KSR 

<    MULTI  ； 

に 

衷 4.6 レジスタ 0， 1 


ビット 3〜0  (MULTIPLE) 

オペレータ （モジ ユレ ータ， キャリア） の 周波数 を 制御し ます. 後述の 
BLOCKZF- Number で 設定され た 周波数 と MULTI に 設定 し た 数値 を掛 
けた もの を その オペレータ の 周波数 とします. ただし， MULTI が 0 だつ た 場 
合 は， 1 ノ 2 を 掛けます. 

ビット 4(KSR) 

自然 楽器， とくに 打 弦楽器で は， 同じ 楽器で あっても， 音程に よって 微妙 
に 音の 立ち上がり， 立ち 下がりの スピードが 違って います. KSR は， この 変 
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化をシ ユミ レートす る ものです. 高音部で は 変化が 速くな り， 低音部で は 変 

化が 遅く なる ように， エンベロープの 変化の 速さ を 補正して います. 0 のとき 

は 比較的小 さい 補正 量で， 1 のとき は 大きく 補正し ます. 

ビット 5(EG-TYP) 

エンベロープの パターンが， 持続 音 タイプ か 減衰 音 タイプ かの 切り替え を 
します. 0 のとき は， 減衰 音 タイプの エンベロープ パターン 力 * 選択され， 1 の 
とき は 持続 音 タイプの エンベロープ パターン 力、' 選択され ます. 

ビット 6(V 旧） 

ビブラートの ONZOFF スィッチです. この ビット を 1 にす ると， その ォ 
ペレ 一 タには ビブラートが かかります. ビブラートと は， 音程 を 周期 的に 微 
妙に 変化 さ せ， 音が ゆれて い る 感じ を 表現す る こと がで きます. 

ビット 7  (AM) 

振幅変調の ONZOFF スィッチです. この ビット を 1 にす ると， その オペ 
レー タには 振幅変調が かかり ます. モジ ユレ ータ 側の オペレータに AM を か 
ける と 音色が 周期 的に 変化す るよう になります. キャリア 側の オペレータに 
AM を かける と 音量が 周期 的に 変化す るよ うになります. 

驪 レジスタ S,  3 


レジスタ 

b7 

b6 

b5 

b4 

bs 

b2 

bi 

bo 

02 

はし 

Total  Level 

03 

KS し 

DC 

W\ 

FB 

表 4.7 レジスタ 2,  3 


ビット 5〜0  (Total  Level  ： レジスタ 2) 

レジスタ 2 の， ビット 5~0 は， モジ ユレ 一夕 オペレータの 出力の 大き さ を 
決めます. この 値 は 最大値に 対する 減衰 量 を 表し， 0~63 までの 範囲で 指定し 
ます. 0 のとき が 一番 出力が 大き く，  63 のとき が 一番 出力が 小さ くなります. 
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値が 小さい ほど キヤ リ ァの 出力が 大き く 変化し， 明るい 音になります. 
ビット 7〜6(KSL) 

音程に よって 音の 立ち上がり， 立ち 下がりの 速さが 変化す る こと は， KSR 
のと ころで 説明し ました 力、'， 同じように， 音色 も 音程に よって 変化し ます. 
この レジスタ では， この 変化 をシ ユミ レートし ます. 

音程が 上がる と， オペレータの 出力 を 絞って， 音显ゃ 音色 を 変化させます. 
1~3 までの 範囲で 設定し ます. 値 を 大きく すると， 音程に 対する 減衰 量が 大 
き くなります. 

レジスタ 2 の KSL はモジ ユレ ータ オペレータへの， レジスタ 3 の KSL は 
キヤ リア オペレータへの 設定になります. 

ビッ ト 5(DM  ： レジスタ 3) 

モジ ユレ ータの 出力 を 半 波 整流し ます. 

ビッ ト 4(DC  ： レジスタ 3) 

キヤ リアの 出力 を 半 波 整流し ます. 

ビット 2〜0  (FEEDBACK  ： レジスタ 3) 

モジ ユレ一 タの 出力 を 自分自身に フィ一 ドバッ ク します. 0 のとき は 
フィードバック しません. 1~7 の 範囲で 設定し ます. 数値 を 大きく していく 
と， 鋭い 音色に なって いきます. 

國 レジスタ 4,  5 

レジスタ 4 はモジ ユレ一 タ オペレータへの， レジスタ 5 は キャリア オペ 
レ一 夕への 設定になります. 


レジスタ 

b7 

b6 

bs 

b4 

b3 

bo 

04 

AR 

DR 

05 

AR 

DR 

表 4.8 レジスタ 4,  5 
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ビット 7〜4  (ATTACK  RATE) 

アタック レイ トは， 音の 立ち上がりの 時間 を 指定し ます. 値' は 0 から 15 ま 
でで， 値が 大きぐ なるほど， 立ち上がりの 時間 は 短くな ります. 

ビッ卜 3〜0 (DECAY  RATE) 

ディケイ レイト は， 音 M が 最大に なって からの， 音の 減衰 時間 を 指定し ま 
す. 値 は 0 から 15 までで， 値が 大き く なるほど 減衰す る 時間 は 短く なります. 

園 レジスタ 6，  7 

レジスタ 6 はモジ ユレ ータ オペレータへの， レジスタ 7 は キャリア オペ 
レ一タ への 設定に なり ます. 


レジスタ 

b7      b6     bs  b« 

b3     l>2      bi .b。 

06 

S し 

RR 

07 

さし 

RR 

表 4.9 レジスタ 6,  7 


ビット 7〜4  (SUSTAIN  LEVEL) 

サス ティン レベル は， ェンぺ ローブ パターンが 減衰 音 タイ プの 場合 は， ディ 
ケィ モードでの 減衰が， この レベルに なると， その後 は リリース モードに 変 
わると いう 変化 点 を 示し， 持続 音 タイプの とき は， ディケイ モードでの 减衰 
が この レベルに 達する と， その後 はこの レベル を 保持 するとい う 変化 点 を 示 
します. 値の 範囲 は 0 〜： 15 で， 最大値に 対する 減衰 量で 指定し ます. です か 
ら， 値が 大き く なるほど 音 S は 小さ くなります. 

ビット 3〜0  (RELEASE  RATE) 

リリース レイト は， ェンぺ ローブ パターンが 減衰 音 タイプの 場合 は， サス 
ティン レベル 前の 减衰 1： を ディケイ レイ 卜で 表し， サス ティン レベル 後の 減 
衰 51: をリ リース レイトで 表します. 持続 音 タイプの とき は， KEY  OFF から 
の 音の 減衰 量 を 示します. 
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画 レジスタ 1 0 〜"！  B と S0~28 

レジスタ 10 から 順番に チャンネル 1 から 9 に 対応して います. 同様に レジ 
スタ 20 から 順番に チャンネル 1 から 9 に 対応して います. 


レジスタ 

b6 

b5 

b4 

b3 

b, 

bo 

10 

i 

18 

F-Number( ビ ッ ト 7〜 ビ ッ ト 0) 

レジスタ 

b7 

b6 

bs 

b« 

b3 

b2 

b, 

bo 

SUS 
ON 
/ 

OFF 

KEY 
ON 
/ 

OFF 

BLOCK 

F- 

Numder 
匕'"/ ト 8 

表 4.10 レジスタ 10〜18 と 20〜28 


レジスタ 10 〜； 18 ビット 7〜0 レジスタ 20〜28 ビット O(F-Number) 
F- Number は， レジスタ 10~18 の 8 ビットと レジスタ 20~28 の 下位 1 
ビットの 合計 9 ビ ッ トで 表し ま す. F-Number は 音階 を 与える データ で， FM 
音源の 基準 クロック を 対して， 目的と す る 周波数が 基準 クロック のなん 倍で 
あるかと いう 情報で、 目的の 周波数 を 表現して います. しかし， そのままで 
は， ビッ ト 数が 多くて 管理 力、' 複雑になる ため 後述の オクターブ を 表す 3 ビッ 
ト の BLOCK と 9 ビットの F- Number で 表 しています. 

目的の 周波数から， F- Number と BLOCK を 求める に は， 次の 式 を 使い ま 
す. 

BL0CK= オクターブ データ 

Fmus= 発生 し た い 周波数 (Hz) 

F-Number=  (FmusX2^18^-50000)  ^- 2"  (BLOCK- 1) 

例， A4=440Hz の 場合 

BLOCK =4 

F-Number=  (440  X  2飞 8 + 50000)  +  2^- 1}=  288 
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レジスタ 20〜28 ビット 3 〜； I  (BLOCK) 
BLOCK はォク ター ブ 情報 を 与え ま す. 

ビット 4  (KEY-ON/OFF) 

鍵盤の ON/OFF に 相当す るビッ ト です. この ビッ トを 、、1" にす ると その 
チャン ネ ルが ON となり 発音し ます. 、、0" にす ると KEY- OFF です. 

ビット 5(SUS-0N/0FF) 

この ビット を 1 にす ると KEY-OFF からの RR( リ リース レイ ト） が 5 に 
なります. 

園 レジスタ OE 


レジスタ 

b7 

b6 

bs 

b4 

b3 

b2 

b, 

bo 

0E 

BD 

SD 

TOM 

TOP-CY 

HH 

表 4.11 レジス 夕 OE 


ビット 5  (RHYTHM) 

リズム モードの 選択と， 各 リズム 楽器の ON/OFF をコン トロール します. 
ビッ ト 5 力 ？1 のとき， OPLL は リズム 音 モードになります. 7~9 までの チヤ 
ン ネル はリ ズム音 発声 用の チャンネルと なります. したがって メロ ディ 一音 
は 6 チャンネルに 制限され ます. 

ビッ ト 4~0 は 各 リズム 音源の ONZOFF を 制御し ます. このと き は， レジ 
スタ 26，  27,  28 の KEY- ON ビット はつねに 0 にして おきます. 

各リ ズム 音の 記号と 音色の 対応 を 以下に 示します. 

記号 音色 名 

BD  バス ドラム 

SD  ス ネア ドラム 

TOM  夕厶 

T-CYM トップ シン ノ  、リレ 

HH  ノゝ イノ \ク 卜 


156 


3 ミュージック 機能 パワフル 活用 


画 レジスタ 30〜38 

レジスタ 30 から 順番に チャンネル 1 から 9 に 対応して います. 


レジス 夕 

b7 

be 

bs 

b« 

bi 

bo 

CO  -  CO 

INST 

VOL 

表 4.12 レジスタ 30〜38 


ビット 7〜4(INST) 

OPLL の 音色 番号 を 設定し ます. 音色 番号 は 0 ~ 15 の 範囲 で 設定 します. 
音色 番号が， 0 のとき は， レジスタ 0 から 7 で 設定した 音色になります. 


音色 番号 

音色 名 

音色 番号 

音色 名 

0 

才 リ ジナリ 1/^ 色 

8 

オルガン 

1 

バイオリン 

9 

ホルン 

2 

ギター 

10 

シン セ 

3 

ピアノ 

11 

ハープシコード 

4 

フルート 

12 

ビブラフォン 

5 

クラ リネッ ト 

13 

シン セ ベース 

6 

オーボエ 

14 

ゥッ ドベース 

トラ ンぺッ ト 

15 

エレキ ベース 

表 4.13   0PLLV0 に E —茛表 


ビット 3〜0(VOL) 

各 チャン ネ ルの音 M; を 指定し ます. 0~ 15 の 範囲 で 指定 し ま すが， こ の 値 は 
最大値に 対する 减衰 量な ので， 0 を 指定した 場合が いちばん 音が 大き く， 15 を 
指定した とき が 一番 音が 小 さくなります. 
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リ ズム モー ドの 場合 は， レジスタ 36，  37,  38 で 各 リ ズム の^お を 表 4.14 の 
ように 指定し ます. 値の 指定の 仕方 は 同様です. 


レジスタ 

bT 

b6 

b5  b4 

b3     bz      bi b0 

36 

BD 

37 

HH  i 

-' 

SD 

38 

t 

TOM> 

T-CYM 

表 4.14 レジスタ 36,  37，  38 
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活用 サンプル プログラム ® 


FM 音色 エディタ 


MSX- MUSIC に 使われて いる， OPLL は 15 個の 音色 を 内蔵して いて， こ 
れ だけで も， PSG に比べれば 充^れ ている といえる のです 力、'， さらに 1 音 
色の オリジナルな 音色 を 作る ことができます. これ は 実際に は， OPLL のォ 
リ ジナル 音色 レジスタに， パラメータ を 設定す る 事に よって， 行われて いま 
す. OPLL にあら かじめ 設定され ていない 音色 (表 4.4 参照） は， すべて この ォ 
リ ジナル 音色 レジスタへ 値 を窨き 込む ことによって 実現され ています. 

ここで は， 自分で 音色 を 作る ための 音色 エディ タを 紹介し ます. 

國 音色 エディタの 操作 

この プロ グラムで は， キヤ リ ァ オペレータの パラメータ 変更 画面と， モジレ 
レー タ オペレータの バラ メータ 変更 画面と に 分かれて います. 実行した 直後 
は， モジ ユレ一 タ オペレータの パラメ一 タ 変更 画面に なって います. （卷頭 口 
絵 参照） 

画面 右上に CARRIER,  MODULATOR の 文字が 表示され， 現在 どちらの 
オペレータの 値 を 変更して いるの か を 示します. 

ESC キー を 押す と CARRIER 画面， MODULATOR 画面の 2 つ を 切り 替 
える ことができます. また， INS キー を 押す と PLAY データ 画面に 切り替わ 
ります. PLAY データ 設定 画面に ついては， あとで 説明し ます. 

画面 上に ある， 手の 形 をした アイコンが カーソルです. これ は， 力一 ソル 
キー を 押す ことによって それぞれの パラメータの 上に 移動し ます. 

アタック レイト （AR)， ディケイ レイト （DR), サス ティ ン レベル (SL), リ 
リース レイト （RR)， （モジ ユレ一 タ ならば， 加えて フィードバック レベル 
(FBL) と トータル レベル (TL)) の 値 は， 画面に 描かれた スライダー スィッチ 
を 力一 ソルで 指定して， それ を 上下す る ことによって 設定し ます. AR，  DR, 
RR は それぞれ， 上側に する ほど， オペレータの 出力の 上がり下がりに かかる 
時間が 長くな ります. SL は， 上に 上げる ほど， 音量が 大きくな ります. 

カーソル キーで 変更す るス ライ ダ一 の 位置へ 力一 ソル を 移動し， スペース 
キー を 押します. そのままで， 力一 ソル キーの 上下 キー を 押す ことによって， 
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スライダー を 上下す る ことができます. スペース キ 一を 離せば， 決定され ま  \ 
す.  ； 

MULTI,  EG-TYP,  KSL,  KSR は， カー ソ ノレで 選択して， スペース キー  - 
を 押す と 1 つず つ 値 力、' 大きくな つてい きます. 最大値の 次 は， 最小値に なり  ： 
ます.  | 

AM,  VIB,  DIS も 同様に， カーソルで 選択し， スペース キー を 押す ことに  ！ 
よって， ONZOFF が 交互に 切り替わります.  1 

P キー を 押す と， 後で 説明す る PLAY データ 設定 画面で 設定した 音程， 長 
さの 音 を 鳴らして， 音色 を テストす る ことができます. 

画面 上側 は， エンベロープ パターンの 表示 ウィンドウです. エンベロープ 
パターン は， キー オン （キー を 押した とき） から キ一 オフ （キー を 離した とき） 
までの 時間 や， KSL,  KSR 等の パラメータの 設定で， かなり 違って きます. 
この プロ グラムでの エンベロープ パターンの 表示 は， キー オンから キー オフ 
までの 時間と KSL，  KSR が， 完全に 無視され ています から， そのこと を 差し 
引いて 考えなければ なりません. また， エンベロープ パターンの 線の 傾き や， 
サス ティン レベルの 時間 は， 実際の 変化の 割合と は 大幅に 違って います. こ 
の エンベロープ パターンの 表示 は， 単に 目安と して 考えて ください.  I 

PLAY データ 設定 画面で は， 音色 を テストす るた めの 音程 や， 音の 長さ， 
セーブ， ロード 等 を 設定す る ことができます. カーソル キーの 上下 キーで， 
機能 を 選択し， スペース キーで 決定し ます. それぞれ， メッセージに 従って 
値 を 入力し， リターン キーで 決定し ます. INS キ一 か ESC キー を 押せば， パ 
ラメ一 タ 変更 画面に 戻り ます. 

PLAY  DATA を 選択す ると， P キー を 押した ときに 出る 音の 音程 を 設定 
する ことができます. 音程 は， A~G で 設定し ます. プログラム 中で は， 単に 
設定 されて いる 文字列 を PLAY 文に 代入して 実行して いる だけ です か ら， 
ttCDEFG〃  と すれば， ドレ ミフ ァソと 演奏す る こと もで きます. ただし， 文 
字 列の 長さに は 限界が あり， 64 文字まで しか 入力す る ことができません. ま 
た， MML を 指定 すれば， Tn や On,  Vn も 設定で きます. たとえば， 
、ヽ T100L1O4V15A" という 設定 も 可能です. 

、、：" で 区切って "A:B:C" とすれば， 和音 を 鳴らす こと もで きます. 
ここで は リ ズム 音な しの モ一 ドを 使って いるので, 最大 9 和音まで 出せます. 
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PLAY デ一 タ は デフ ォ ル ト では， 
マ 120L404V15A" 

と 設定され ています. 

PLAY  LENGTH を 選択す ると， 音の 長さ を 設定で きます. データ は 1 か 
ら 64 まで 指定で き ます. この 設定で は， 上記の PLAY  DATA 設定で 設定 さ 
れた MML 文字列の 先頭に 自動的に， 、、Ln〃  を 付加し ます. デフォルト では 
WL4〃 に 設定され ています. ただし， PLAY  DATA 設定の MML 文字列の 中 
に vLn〃  を 設定して いる 場合 は， そちら 力、' 優先され ます. 

SAVE,  LOAD を 選択す ると， 作った データ を セーブ， ロードす る ことが 
できます. 選択す ると， ファイルネーム を閗 いてきます. ファイルネーム を 
入力し ます. 

セーブで は， 音色 パラメータ を， 

10000  DATA  6043,6573,6948,7468, 1800,8,0,0,8A3,76F1, 80,0,82, 
17F2.80.0 

のよう な プログラムの 形で アスキー セーブし ています. 実際に プログラムに 
組み込む とき は， プログラムと セーブ された データ を マージして， 次の よう 
にして 使って く ださい. 

100  CALL  MUSIC 

110  DIM  A%(15) 

120  FOR  1=0  TO 15 

130  READ  A$:A%(I)=  VAL("&H"+A$) 

140  NEXT  I 

150  CALL  VOICE  COPY  (A%,@63) 
160  PLAY  #2,"@63CDEFG" 

170  END  i 
180   DATA  6C43,6573,6948,7468)1800,8,0,0,8A3,76Fl,80,0,82f 
17F2.80.0 
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VOICE  COPY を 選択す る と ， MSX- MUSIC に 内蔵され ている 音の デー タ 
を 読み込んで， その パラメータ を エディット する ことができます. 音色 は 表 
4.4 の 音色 番号で 指定し ます. ただし， OPLL に 内蔵され ている 音色 を 指定す 
る こと はでき ません. 

この エディ タを 終了す る とき は， CTRL +STOP  (CTRL キー を 押しな 力、' ら 
STOP キー を 押す） を 押す と 終了 します. 

エディ タを 終了した 時点で は， 作った 音色の パラメータ は @63 に 格納され 
たま まに なって います. CALLMUSIC 文 を 実行しても， @63 に 設定され て 
いる パラメータ は 初期化され ません から， 1 度 エディ タを 終了して しまって 
も， もう 1 度 実行 すれば， また， それまで エディ ッ ト していた 音色 を 変更す 
る ことができ ます. 

この エディ タで エディ ッ ト した あとに， 次に 紹介す る FM 音 キー ボー ドを 
実行し， 音色に @63 番を 選べば， そのまま FM 音源 キーボード 上で も 使う こ 
とがで き ます. 

國 実際の 音色の 作り方 

FM 音源での 音の 作 り 方 はとても 難しい ものです. 実際に 作 り たい 音の， 波 
形， 倍音 成分の 含まれ 方， 時間 的 変化の 仕方 を 考えながら パラメータ を 設定 
していかなければ なりません 力、'， これに は， 相当の 鍛鍊が 必要です. 

最初 は， 内蔵され ている 音色の パラメータ を 読み込んで， その パラメータ 
を 少しずつ 変化 させて みる ことから 始める といいで しょう. しかし， やみく 
もに パラメータ を 変化 させても， 目的の 音色 は 得られないでしょう から， こ 
こで は， 簡単に どの バラ メータが 音色に どのように 影靜 する のか を 簡単に 説 
明して おきます. 

•  MULTIPLE 

MULTIPLE (画面で は， MULTI) は， 出したい 音の 周波数の， 何 倍の 周波 
数 を 実際に オペレータ に加える か を 指定し ます. た と えば， 4 ォク タ一ブ の A 
の 音なら ば 周波数 は 440Hz ですから， MULTIPLE を 2 に すれば， 2 倍の 
880Hz の 周波数が オペレータに 入力され ます. ただし， 0 の 時 は， 1Z2 倍に 
なります. 
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モジ ユレ一 タ 側の 周波数 を 高く していく と， 倍音 成分の 含まれ 方が， 基本 
の 周波数に 近い 倍音 成分が 多 く  ， 基本の 周波数から 離れた 倍音 成分が 多 く 
なって いきます. キャリア 側の 周波数 を 高く していく と， ピッチが 髙く なつ 
ていきます. 通常 MULTIPLE は， モジ ユレ ータ側 は， 1 か 2， キャリア 側 は， 
1 を 設定 すれば よいで しょ う. 

• フィードバック レベル 

フィ一 ドバッ クレベル (FBL) は， モジ ユレ一 タの 出力 をモジ ユレ ータ 自身 
に フィー ドバッ ク する 量 を 設定し ます. フィー ド バック レベル を 大き く して 
いくと， だんだん 鋭い 音色に なって いきます. そして 最大に すると， ホ マイ 
ト ノイズ を 発声す るよう になります. この パラメータ は， トランペットめ よ 
うな 金管の 楽器の 音 を 作る 時に 使用 するとよ いでし よ う.  ' 

I 

'オペレータ 出力 レベル 

オペレータの 出力 レベル を 変化させます. これ は， エンベロープ パターン 
を 変化させる ことによって 作ります. また， 次で 説明す る KSL，  KSR も影靜 
します. さらに， モジ ユレ ータ では， トータル レベル (TL) も 出力 レベル を 左 
右し ます. 

エンベロープ パターン は， アタック レイト （AR), ディケイ レイト （DR)， 
サス ティ ン レベル (SL)， リリース レイト （RR),  EG-TYPE  (減衰 音と 持続 音 
の 種別） によって 表現し ます. 

モジ ユレ一 タ 側の 出力 レベル を 変化させる ことによって， 音色の 変化 をつ 
ける ことができます. 出力 レベル を 上げて いくと， 丸い 音色から 明るい 音色 
へと 変化して いきます. また， エンベロープ パターン は， 含まれて いる 倍音 
成分の 音 S の 時間 的 変化 を 作り ます. 

キヤ リアの 出力 レベルの 変化 は 音量の 変化 を 作り ます. たとえば ピアノの 
よ う な 打 弦楽器の 場合に は， 音の 立ち上がり は 早く 変化す るよ うに 設定し， 
時間が たつに つれて 少しずつ 音量が 小さ く なって いく ようにし ます. ト ラン 
ぺッ ト のよう な 金管楽器 ならば， 音の 立ち上がり は 比較的 緩やかに して， 音 
量 は 持続す るよう に 設定し ます. 
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•KSR,  KSL 

レイ トのキ 一スケール (KSR) は， たとえば， 打 弦楽器で は， 同じ 楽器で あつ 
て も， 音程に よって 微妙に 音の 立ち上がり， 立ち 下がりの スピードが 違って 
くる こと をシ ユミ レートし ます. また， レベルの キ一 スケー ノレ （KSL) では， 
音程が 高く なるほど， 音量が 小さ くな つてい くこと をシ ユミ レート します. 

実際に は， 音程が 上がる と， オペレータの 出力 を 絞って， 音显ゃ 音色 を 変 
化させます. 値 を 大きく すると， 音程に 対する 音量の 小さくなる 割合 力、' 大き 
くなります. 

•V 旧， AM,  DIS 

ビブラート （VIB) の ONZOFF や 振幅変調 (AM) の ONZOFF, 半 波 整流 
(DIS) の ONZOFF を 決めます. VIB を ON にす ると， ピッチが 周期 的に 微 
妙に 変化し， 音が ゆれて い る 感じ を 出す ことができ ま す. 

モジ ユレ一 タ 側の オペレータの AM を ON にす ると， 音色が 周期 的に 変化 
する ようになり， キャリア 側の オペレータの AM を ON にす ると， 音量が 周 
期 的に 変化す るよう になります. 

それぞれの パラメータの 意味 は， だいたい 上記の ようになります. しかし， 
FM 音源で は， それぞれの パラメータの 変化が， 直線 的に 結果と なって 表れな 
いので， 実際に 何度も やって みて， どの パラメータ を 変化させる とどの よう 
に 音が 変化して いく 力、 体得して いかなければ ならない でしよ う. 


164 


3 ミュージック 機能 パワフル 活用 


リスト 4.10   FM 音色 エディタ FMEDrr.BAS 


1000  'MSX-HUSIC  TONE  COLOR  EDITOR  FOR  YM2413(0PLL) 

1010  CALL  MUS1C(0，0,1,1,1,1,1,1,1,1,1) 

1020  CLEAR  2000:MAXFILES=2 

1030  SCREEN  5,2:0PEN  "GRP:"  FOR  OUTPUT  AS  #1 

1040  DIM  PX(6),PY(6),PM(6,6, l),MA(6,6)fRl(15),R2(15),R3(15),D$(8),Dl$( 
8).D2$(8),n(15).0X(2),0Y(2)  I 
1050  DEFFNT=VARPTR(TX(0)) 

1060  CL$=STRING$(3,CHR$(8))+CHR$(15)+STRING$(3,CHR$(8))+STRING$(9,CHR$ 
(0)) 

1070  RESTORE  1200 

1080  FOR  1=0  TO 15： READ  Rl(I):NEXT  I 

1090  FOR  1=0  TO 15： READ  D:R2(I)=-D:NEXT  I 

1100  FOR  1=0  TO ほ: READ  R3(I):NEXT  I 

1110  FOR  1=0  TO  6： READ  MA( 1,0)： NEXT  I 

1120  FOR  1=1 TO  6： READ  MA(2, I):NEXT  I 

1130  FOR  1=0  TO  6： READ  PX(I):NEXT  I 

1140  FOR  1=0  TO  6： READ  PY(I):NEXT  I 

1150  FOR  1=0  TO  8 ： D 1$( I )="T 1 20863L4O4V 15" ： NEXT  I 

1160  D$(0)="A":GOSUB  2760 

1170  GOSUB  3350： CALL  VOICE  COPY(01,TSK):GOSUB  2790 
1180  PO=0 ： OX ( 1 )=2 ： HD=0 ： CL= 1 ： RM= 1 ： RC= 1 ： GOSUB  1610 
1190  GOTO  1280 
1200  'DATA 

1210  DATA  0,40.35.30,26,22, 18, 15, 12.9,7,5.3,2, 1,0 

1220  DATA  0，.8,.9, 1,1.2, 1.4, 1.7, 2, 2. 5, 3. 3, 4.3,6, 10， ほ， 30, 60 

1230  DATA  60,56,52,48, 44, 40, 36, 32,28, 24,20， 16, 12, 8, 4,0 

1240  DATA  63,15,15,15,15,15,15 

1250  DATA  1,3,1,1,1,1 

1260  DATA  24,48,136.160,184,208,232 

1270  DATA  124,132,140,148,172,180.188 

1280  'MAIN 

1280  T-STICK(PO) 

1300  X=X-(T=3  AND  MD<>2  AND  X<6)+(T=7  AND  MD<>2  AND  X>(2*HD)) 
1310  Y=Y-(T=5  AND(X=2  OR  MD=2)AND  Y<6+(MD=2))+(T=1  AND(X=2  OR  MD=2)AND 
Y>0) 

1320  IF  OX(MD)<>X  OR  OY(MD)<>Y  THEN  GOSUB  2520： OX(MD)=X:OY(MD)=Y: GOTO 
1290 

1330  K$=INKEY$ 

1340  IF  K$=CHR$(&H1B)  THEN  GOSUB  1590： GOTO  1380 
1350  IF  K$=CHR$(&H12)  THEN  GOSUB  1560： GOTO  1380 
1360  IF  (K$="P"  OR  K$="p")  AND  MD<>2  THEN  GOSUB  2720 
1370  IF  STRIG(PO)  THEN  1390 
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1380  GOTO  1290 
1390  'IF  STRIG(P0)=-1 
1400  PT=i:G0SUB  2520 
1410  IF  MD=2  THEN  1740 
1420  IF  X=2  THEN  1480 
1430  T=STICK(P0) 

1440  D=PM(X,0,MD)-(T=5  AND  PM(X.0,MD)<MA(X.0))+(T=1  AND  PM(X,0,MD)>0) 

1450  IF  D<>PM(X,0,MD)  THEN  PM(X.0,MD)=D:GOSU8  2520:GOSUB  2610 

1460  IF  STRIG(PO)=0  THEN  1520 

1470  GOTO  1430 

1480  'CHANGE  BY  SPACE  KEY 

1490  PM(2,Y.MD)=PM(2,Y,MD)+1 

1500  IF  PM(2,Y,MD)>MA(2,Y)  THEN  PM(2,Y,MD)=0 

1510  GOSUB  2670 

1520  IF  MD<>2  AND((X=2  AND  Y=l)  OR  X>=3)  THEN  GOSUB  3100 

1530  GOSUB  2970 

1540  PT=0: GOSUB  2520 

1550  GOTO  1290 

1560  'NODE  CHANGE 

1570  IF  ND=2  THEN  MD=MO:GOTO  1610 

1580  M0=MD:MD=2:G0T0  1610 

1530  * 

1600  MD=MD+l:lF  MD>=2  THEN  MD=0 
1610  'MODE  CHANGE2 
1620  SET  PAGE  ,MD 
1630  IF  KD-2  THEN  1660 

1640  IF  MD=0  AND  RM<>0  THEN  RM=0: GOSUB  1690： GOTO  1660 

1650  IF  HD-1  AND  RC<>0  THEN  RC=0: GOSUB  1680 

1660  X=OX(HD):Y=OY(MD): GOSUB  2520 

1670  SET  PAGE  MD.HD 

1680  RETURN 

1690  ' 

1700  FOR  X=MD*2  TO  6： GOSUB  2610:NEXT  X 
1710  FOR  Y=0  TO  6： GOSUB  2670： NEXT  Y 
1720  GOSUB  3100 
1730  RETURN 
1740  'MD=2 

1750  ON  Y+l GOTO  1760, 1840, 1920, 1920,2150,2200 
1760  'MML  DATA  INPUT 

1770  I=0:KT=l:LN=64:PT$="INPUT  MML": GOSUB  2330 
1780  LN=INSTR(I$,":,'):IF  LN=0  THEN  LN=LEN(I$)+1 
1790  D$(I)=LEFT$(I$,LN-1) 
1800  I$=MID$(I$.LN+1,LEN(I$)) 
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1810  IF  1$<>""  THEN  I=I+i:GOTO  1780 
1820  GOSUB  2760 
1830  GOTO  2300 
1840  ' INPUT  LENGTH 

1850  KT=2:LN=2:PT$="LENGTH  (l=<n=<64)": GOSUB  2330 

1860  IF  VAL(I$)>64  OR  VAL(I$)<1  THEN  BEEP  :G0T0  2300 

1870  FOR  1=0  TO  8 

1880  D は （1)="T120863L"+1$+"O4V は" 

1890  NEXT  I 

1900  GOSUB  2760 

1910  GOTO  2300 

1920  'LOAD  &  SAVE 

1930  LN=8:KT=0:PT$="INPUT  FILENAME": GOSUB  2330 
1940  IF  1$=""  THEN  BEEP  :GOTO  2300 
1950  IF  Y=3  THEN  2030 
1960  'SAVE 
1970  GOSUB  2780 

1980  OPEN  I$+".DAT"  FOR  OUTPUT  AS  82 
19S0  PRINT  #2, "10000  DATA  "； 

2000  FOR 1=0  TO  14:PR1NT  82,  STR$(TX(I))+",";:NEXT  I 
2010  PRINT  82,STR$(TX(15)) 
202(5  GOTO  2130 
2030  'LOAD 
2040  RM=i:RC=l 

2050  OPEN  I に DAT"  FOR  INPUT  AS  «2 

2060  LINE  INPUT  #2,D$:D$=MID$(D$, 11,LEN(D$)-11) 

2070  FOR  1=0  TO 14 

2080  TX(I)=VAL(MID$(D$, 1. INSTR(D$. ", ")-1)) 

2090  D$=MID$(D$.INSTR(D$,",")+1) 

2100  NEXT  I 

2110  TX(15)=VAL(D$) 

2120  GOSUB  2790 

2130  CLOSE  #2 

2140  GOTO  2300 

2150  'TRANSPOSE 

2160  LN=6:KT=2:PT$=MTRANSP0SE  (- 12799=<n=< 12799)" ： GOSUB  2330 
2170  IF  VAL(I$)<-12799  OR  VAL(I$)>12799  THEN  BEEP  :GOTO  2300 
2180  TR=VAL(I$) 
2190  GOTO  2300 
2200  'VOICE  COPY 

2210  RESTORE  2230 :LN=2:KT=2:PT$=" INPUT  TONE  No.": GOSUB  2330 
2220  IF  VAL(I$)>64  THEN  BEEP: GOTO  2300 
2230  READ  D$ 
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2240  IF  M-"END"  THEN  D-VAL(I$):GOTO  2270 
2250  IF  VAL(I$)=VAL(D$)  THEN  BEEP  :GOTO  2300 
2260  GOTO  2230 

2270  CALL  VOICE  C0PY(OD,T%):G0SUB  2790:RM=i:RC=l 
2280  GOTO  2300 

2290  DATA  0,2,3,4,5,6,9, 10, 12, 14, 16, 23, 24. 33, 48, END 

2300  'RETURN  MAIN 

2310  LINE  (0.80)-(255,200),4,BF 

2320  GOTO  1520 

2330  'KEY  INPUT 

2340  I $="**： PRESET  (8, 85)： PRINT  »1,PT$: PRESET (8, 100) 

2350  K$=INKEY$:IF  K$=""  THEN  2350 

2360  IF  K$=CHR$(&HD)  THEN  RETURN 

2370  IF  K$=CHR$(&H8)  THEN  2470 

2380  IF  KT=2  AND  (K$="+"  OR  K$="-B)  THEN  2430 

2390  IF  K$>="0"  AND  K$=<"9"  THEN  2430 

2400  IF  KT=1  AND  K$=":"  THEN  2430 

2410  IF  KT<>2  AND  ((K$>="0"  AND  K$-<"Z")  OR  K$=?  OR  K$=">"  OR  K$="<" 
OR  (K$>="a"  AND  K$=<"z"))  THEN  2430 
2420  GOTO  2350 
2430  'PRINT  DATA 

2440  PRESET  (8+8*(LEN(I$)-(20*INT(LEN(I$)/20))). 100+10* INT(LEN(I$)/20) 

): PRINT  #1，K$: は- I$+K$ 

2450  IF  LEN(I$)>LN  THEN  BEEP: GOTO  2470 

2460  GOTO  2350 

2470  'DELETE 

2480  IF  LEN(I$)=0  THEN  2350 

2490  PRESET  (8+8*((LEN(I$)-l)-(20xINT((LEN(I$)-l)/20))), 100+10xINT((LE 
N(1$)-1)/20)):PRINT  #1," " 
2500  I$=LEFT$(I$,LEN(I$)-1) 
2510  GOTO  2350 
2520  'CORSOR  MOVE 

2530  IF  HD=2  THEN  DX=80:DY=14+(10*Y):COTO  2580 
2540  IF  X=0  THEN  DY=113+PM(0,0,0)+4:GOTO  2570 
2550  IF  X=2  THEN  DY=PY(Y):GOTO  2570 
2560  DY=113+(PM(X,0,MD)*5) 
2570  DX=PX(X) 

2580  PUT  SPRITE0,(DX,DY).1,PT*2 

2590  PUT  SPRITEl,(DX,DY),ll,PTx2+l 

2600  RETURN 

2610  'DISPLAY  SLIDER 

2620  IF  X=2  THEN  RETURN 

2630  IF  X=0  THEN  DY=113+PH(0,0, 0)  ELSE  DY=113+(PM(X,0,HD)*5) 
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2640  IF  HD=1  THEN  SX=X-1  ELSE  SX=X+2 

2650  PUT  SPRITE  SX, (PX(X)-8,DY), ,4:C0L0R  SPR1TE$(SX)=CL$ 

2660  RETURN 

2670  "DISPLAY  NUMBER 

2680  IF  Y=<3  THEN  D$=RIGHT$("   "+STR$(PM(2,Y,MD)),2):G0T0  2700 

2690  IF  PM(2,Y,MD)=1  THEN  D$="ON  "  ELSE  D$="OFF" 

2700  PRESET  (PX(2)-(8x2),PY(Y)-4):PRINT  #1,D$ 

2710  RETURN 

2720  'TEST  TONE  COLOR 

2730  CALL  VOICE  C0PY(TX,e63) 

2740  PLAY  82, D2$(0) ,D2$(1),D2$(2). D2$(3) , D2$(4) , Dl$(5) ， D2$(6) , D2$(7) ， D 
2$(8) 

2750  RETURN 

2760  'MML  DATA  SETUP 

2770  FOR  1=0  TO  8:D2$(I)=D1$(I)+D$(I):NEXT  I 

2780  RETURN 

2790  'READ  VOICE  DATA 

2800  TR=PEEK(FNT+8)x256+PEEK(FNT+9):lF  TR>128  THEN  TR=TR-256 
2810  PM(1,0,0)=(PEEK(FNT+10)  AND  14)/2 
2820  FOR  1=16  TO  24  STEP  8 
2830  D=(I-16)/8 

2840  PM(2,4.D)=-((PEEK(FNT+I)  AND  128)<>0) 

2850  PM(2,5,D)=-((PEEK(FNT+I)  AND  64)<>0) 

2860  PH(2,1.D)=-((PEEK(FNT+I)  AND  32)<>0) 

2870  PM(2,3,D)=-((PEEK(FNT+I)  AND  16)<>0) 

2880  PM(2,0,D)=(PEEK(FNT+I)  AND 15) 

2890  PH(2,2,D)=(PEEK(FNT+I+1)  AND  192)/64 

2900  PM(0,0,D)=(PEEK(FNT+I+1)  AND  63) 

2910  PM(3,0,D)=(PEEK(FNT+I+2)  AND  240)/ 16 

2920  PM(4,0,D)=(PEEK(FNT+I+2)  AND 15) 

2930  PM(5,0,D)=(PEEK(FNT+I+3)  AND  240)/ 16 

2940  PH(6,0,D)=(PEEK(FNT+I+3)  AND 15) 

2950  NEXT  I 

2960  RETURN 

2970  'SET  VOICE  DATA 

2980  IF  TR<0  THEN  D=TR+256  ELSE  D=TR 

2990  POKE  FNT+8,D¥256 

3000  POKE  FNT+9.D  MOO  256 

3010  POKE  FNT+10,PH(1,0,0)*2 

3020  FOR  1=16  TO  24  STEP  8 

3030  D=(I-16)/8 

3040  POKE  FNT+I , PM(2, 4. D)«128+PM(2, 5, D)x64+PH(2, 1 , D)«32+PH(2, 3, D)«16+P 
M(2,0,D)  [ 
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3050  POKE  FNT+I+l,PM(2,2,D)x64+PM(0,0,D) 
3060  POKE  FNT+I+2,PM(3,0,D)*16+PM(4,0,D) 
3070  POKE  FNT+I+3, PH(5, 0, D)*16+PM(6, 0, D) 
3080  NEXT  I 
3090  RETURN 

3100  'PUT  ENVELOP  PATTERN 
3110  LINE  (8,8)-(247,88),15,BF 
3120  EY=80:EX=16 

3130  IF  PM(3,0,MD)=0  THEN  LINE  (EX,EY)-STEP(200,0),CL:GOTO  3340 

3140  LINE  (EX.EY)-STEP(R1(PH(3,0,MD)),-60),CL 

3150  IF  PM(4,0,MD)=0  AND  PM(5,0.MD)=0  THEN  GOTO  3130 

3160  IF  PH(4,0,HD)=0  THEN  LINE  -STEP(80,0),CL: IF  PM(2,1,MD)=0  THEN  Rl= 

0:COTO  3320： ELSE  GOTO  3220 

3170  LINE  -STEPC INT((-60+R3(PM(5. 0, HD)))/R2(PM(4, 0, HD))) , 60-R3(PM(5, 0, 
MD))),CL 

3180  IF  PM(5,0,HD)=15  THEN  3340 
3190  IF  PH(2,1,HD)=0  THEN  GOTO  3260 
3200  'JIZOKUON 
3210  LINE  -STEP(40,0),8 

3220  IF  PM(6,0,HD)=0  THEN  LINE  -STEP(80，0),CL:GOTO  3340 
3230  IF  PM(4,0,MD)=0  THEN  R2=0  ELSE  R2=PM(5,0,MD) 
3240  LINE  -STEP(-R3(R2)/R2(PM(6, 0, MD)) , R3(R2)) . CL 
3250  GOTO  3340 
3260  ,GENNS 画 

3270  IF  PM(6,0.MD)=0  THEN  R1=PM(5.0,MD):GOTO  3320 

3280  IF  PM(5,0,HD)=14  OR  PM(5,0,MD)=13  THEN  R 1=15： GOTO  3300 

3290  Rl=13 

3300  LINE  -STEPC INT((-R3(PM(5, 0, MD))+R3(R1))/R2(PH(6, 0, MD))) , R3(PM(5, 0 
,MD))-R3(R1)),8 

3310  IF  PM(5,0,MD)=14  THEN  GOTO  3340 
3320  R2=7 

3330  LINE  -STEPC INT((-R3(R1))/R2(R2)) , R3(R1 )) . CL 
3340  RETURN 
3350  'IN IT  SCREEN 

3360  SET  PAGE  0,0： SCREEN  5, 2： COLOR は， 4,4:CLS 

3370  MD=0:MD$="HODULATOR":GOSUB  3480:GOSUB  3830 

3380  SET  PAGE  0,1： SCREEN  ,2: COLOR  15,4,4:CLS 

3390  MD=l:MD$="CARRIER":GOSUB  3480:GOSUB  3830 

3400  SET  PAGE  0,2： SCREEN  ,2： COLOR  15,4,4:CLS:G0SUB  3830 

3410  COLOR 15. 7： RESTORE  3470 

3420  FOR  1=0  TO  5 

3430  READ  D$: PRESET  (20, 10+10*1): PRINT  #1.D$ 
3440  NEXT  I 
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3450  COLOR  15,4 
3460  RETURN 

3470  DATA  "PLAY  DATA   ","PLAY  LENGTH","     SAVE      ","     LOAD      '，，"  TR 

ANSPOSE  "."VOICE  COPY  " 

3480  'IN IT  SCREEN  SUB 

3490  PRESET  (8,0): PRINT  #1,HD$ 

3500  LINE  (8,8)-(248,100),15.BF 

3510  IF  MD=1  THEN  GOTO  3560 

3520  RESTORE  3800 

3530  FOR  1=1 TO  2 

3540  READ  Y,X,C$: PRESET  (8xX.8«Y): PRINT  #1,C$ 

3550  NEXT  I 

3560  RESTORE  3810 

3570  FOR  1=1 TO 11 

3580  READ  Y,X,C$: PRESET  (8*X,8*Y): PRINT  #1,C$ 

3590  NEXT  I 

3600  FOR  1=0  TO  3 

3610  LINE  (160+(24*I), 112)-(160+(24*I),200), 1 
3620  LINE  (147+(24*I), 117)-(147+(24*I), 192), 14 
3630  FOR  J=0  TO 15 

3640  LINE(147+(24xI),ll 7+(J*5))-STEP(4 ,0),14 
3650  NEXT  J 
3660  NEXT  I 

3670  IF  MD=1  THEN  3790 
3680  FOR  1=0  TO 1 

3690  LINE  (24+C24* I ) , 1 12)-(24+(24« ！ ) , 200) . 1 
3700  NEXT  I 

3710  LINE  (35,117)-(35,192),14 
3720  FOR  J=0  TO 15 

3730  LINE  (35, 1 17+(J*5))-(39, 1 17+(J*5)), 14 
3740  NEXT  J 

3750  LINE  (11,117)-(11,180),14 

3760  FOR  J=0  TO  64  STEP  4 

3770  LINE  (11,116+J)-(15,116+J),14 

3780  NEXT  J 

3790  RETURN 

3800  DATA  13,2.TL,13,5,FB 

3810  DATA 13, 19.AR, 13.22.DR, 13.25.SL, 13.28.RR 

3820  DATA  15,9,MULTI=, 16, 8, EG-TYP=, 17,11, KSL=, 18,11. KSR=, 21 , 12, AM=, 22, 

11,VIB=,23,11,DIS= 

3830  'SET  SPRITE  DATA 

3840  RESTORE  3920 

3850  FOR  1=  0  TO  4:S$="" 
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3860  FOR  J- 1 TO  32 

3870  READ  D$:S$=S$+CHR$(VAL("&H"+D$)) 

3880  NEXT  J 

3890  SPRITE$(I)=S$ 

3900  NEXT  I 

3910  RETURN 


3920 

DATA 

E0 

90, 

89, 

46, 

21 

10, 

08, 

14, 

24, 

20, 

10, 

08, 

07, 

00, 

00,00 

3930 

DATA 

00 

60, 

90, 

48, 

04 

04, 

04, 

04, 

02, 

01, 

01, 

02, 

84, 

48, 

30,00 

3940 

DATA 

00 

60, 

70, 

39. 

IE 

0F 

07 

0B, 

IB, 

IF, 

0F, 

07, 

00, 

00, 

00,00 

3950 

DATA 

00 

00, 

60, 

B0, 

F8 

F8 

F8 

F8, 

FC, 

FE 

FE, 

FC, 

78, 

30, 

00,00 

3960 

DATA 

00 

00, 

F9, 

86, 

81 

70 

08, 

14, 

24, 

20 

10, 

08, 

07, 

00, 

00,00 

3970 

DATA 

00 

60 

90, 

48, 

04 

04 

04 

04, 

02, 

01 

01 

02 

84, 

48 

30.00 

3980 

DATA 

00 

00 

00 

79 

7E 

0F 

07 

0B 

IB, 

IF 

0F 

07 

00 

00 

00,00 

3980 

DATA 

00 

00 

60 

B0 

F8 

F8 

F8 

F8 

FC 

FE 

FE 

FC 

78 

30 

00.00 

4000 

DATA 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

00 

00 

00 

00 

00 

00 

00 

00,00 

4010 

DATA 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

00 

00 

00 

00 

00 

00 

00 

00,00 
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活用 サンプル プログラム © 

FM 音源 キーボード 


MSX-MUSIC は， PLAY 文で いちいち プログラム を 書かな け れば， 音楽 を 
演奏させる こと はでき ません. そこで， MSX の キーボード を 押す ことによ つ 
て， 音楽 を 演奏す る ことので きる プログラム を 紹介し ます. 

國 キーボードと 音階の 対応 

この プロ グラムで は， キ 一ボ一 ドを 鍵盤に 見た てて， キ 一を 押す ことによ つ 
て 演奏す る ことができます. 各 キー は， ピアノの 鍵盤と 同じように 設定され 
ています. MSX のキ 一ボード は， 上側から 4 段の 列に 分かれて います 力、'， こ 
のうちの 上側の 2 段と 下側の 2 段 を， それぞれ 1 組と して 扱います. それ ぞ 
れ 上の 段が 黒鍵， 下の 段が 白 鍵に 当たります. 

実際の キーに 対する 音の 割当 は， 次のように なって います. 

下側の 2 段のう ち， 下の 段 は， Z キーが ドの 音に 対応して いて， そこから 右 
側に 向かって X キーから， レ， ミ， ファ， ソ， ラ， シ， と 割り当てられ てい 
ます. その上の 段 は S キーが ド#，  D キーが レ# のように 半音 力、'， 割り当てら 
れ ています. 


[1] 回 回 [EH     BCD  m 


レ 


ファ 


ソ 


シ 


レ 


ファ 


図 4.10 キー ポー ド 下段の 割 り 当て 
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上側の 2 段のう ち， 下の 段 は Q キーが ソの 音に 対応して います. Q キ 一か 
ら 下の 2 段と 同様に， ソ， ラ， シ， ド， レ， と 割り当てられ ています. 上の 
段 は， 2 キーから ソ#，  3 キ 一力、' ラ# となって， 下の 2 段と 同様に 音力、' 割り当て 
られ ています. 


ma  (nm  as 回 


ソ 


シ 


レ 


ファ 


ソ 


シ 


レ 


回 回 h 回 sraui 


図 4.11 キーボード 上段の 割り当て 


音階 は， 下の 段から 上の 段へ と 上がって いきます. ^で， 3 オクターブと 
2 音 分になります. つまり， 1 つのつな がった 鍵盤 を 2 つに 分けて 上下に 置い 

た 形に なって いる わけです. 

同時に 6 音まで 発声で きます から， 複数の キー を 押して， 和音 を 弾く こと 
がで きます. ただし， 6 個 以上の キーが 押された 場合 は， 最後に 押された キー 

は 無視され ます. 


画 音色の 切り替え 

この プログラム は， 上下の キーに それぞれ 別の 音色 を 割り当てて 演奏す る 

こと もで きます. F1 キ 一を 押す と， 上下 同じ 音色の モードと， 上下に 別々 の 

音色 を 設定す る 上下 分割 モー ドが 切り替わります. この スィ ツチ は ト ダルに 

なって いますので， もう 1 度 F1 キー を 押せば， 上下 同じ 音色の モ一 ドに 戻り 

ます. 
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画面に は， 音色の 名前と その 番号 力、' 表示され ています. また， 画面の 最下 
行に は， 現在 セレクトされ ている 音色が 表示され ます. ESC キー を 押す と 音 
色 を 選択す る モー ド になります. 力一 ソル キーで カーソル を 移動して， リ ター 
ンキ一 で 決定し ます. 

上下 分割 モードの 時 は， リターン キーで 音色 を 決定した あと， 上下 どちら 
の 段の キーに， その 音 を 割り当て るか を 設定し ます. 力一 ソル キーの 左で 下 
の キーに， 右で 上の キーに 割り当てられ るので， どちら か を 選択して リタ一 
ン キーで 決定し ます. ただし， 名前の 後ろに、、 ** マークの 付いていない 音色 
を 同時に 選択す る こと はでき ません. 

音色に よって は， きちんと 音階 を 発声で きない 音色 もあります が， これ は， 
^  < グ では ありません （とくに ノイズ を 多く 含ん だ 音 や 打楽器 音 など). 

國 プログラム 中の マシン 語 

この プログラム では， 同時に 複数の キーが 押されたり, 離されたり した こと 
を 読み取る ために， マシン 語の プログラムで 直接 キー を 読み込んで います. 

ま た ， OPLL の レジスタに 直接 値 を喾き 込む ことによって 音 を 発声 させて 
います. 押されて いる キーに 対応す る 音の 周波数 (F-number，  BLOCK) をレ 
ジス タに醬 き 込み， KEY- ON のビッ トを セットし ます. キーが 離されたら， 
KEY- ON のビッ トを リセット します. 

OPLL の レジスタに 値 を 書き込む ために， MSX-MUSIC の FM-BIOS の 
なかの WRTOPL ルーチン を 使用して います. 
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リスト 4.1 1 FM 音源 キー ポー ド FMKEYBD.BAS 


1000  '*-*'-K l、m  PROGRAM 

1010  CLEAR  1000.&HBFFF 

1020  SCREEN  0: WIDTH  40： KEY  OFF 

1030  CALL  MUSIC 

1040  DIM  TN$(63),T(1), 01(63) 

1050  GOSUB  2050 

1060  DEF  USR0=&KC000:DEF  USR1=&HC003 

1070  DEF  USR2=&HC006:DEF  USR3=&HC009 

1080  DUMMY=USR1 (DUMMY) 

1090  GOSUB  1570 

1100  MD=0:T(0)=0:T(1)=2 

1110  GOSUB  1450 

1 1 20  VL=0 ： DX=2*256+VL ： DUMMY=USR3(D%) 
1130  'MAIN 

1140  DUMMY=USR0(DUMMY) 
1150  K$=INKEY$ 

1160  IF  K$=CHR$(&H1B)  THEN  GOSUB  1190 

1170  IF  K$=CHR$(&H12)  THEN  GOSUB  1400 

1180  GOTO  1140 

1190  ' 才ン ショウ や コゥ 

1200  LOCATE  X*13, Y+l:PRINT  ">"； 

1210  T=STICK(0) 

1220  X=X-(T=3  AND  Y=<20  AND  X<2)+(T=7  AND  X>0) 

1230  Y=Y-((T=5  AND  Y=20  AND  X=0)  OR  (T=5  AND  Y<20))+(T=1  AND  Y>0) 

1240  IF  INKEY$=CHR$(&HD)  THEN  GOTO  1270 

1250  IF  OX<>X  OR  OY<>Y  THEN  LOCATE  OX*13,0Y+i:PRINT  "  "； :OX=X:OY=Y:GOT 
0  1200 

1260  GOTO  1210 

1270  LOCATE  X*13, Y+i:PRINT  " "; 

1280  OS=0:S=0 

12S0  IF  HD=0  THEN  1370 

1300  LOCATE  S*19+1.23:PRINT  "> "； 

1310  T=STICK(0) 

1320  S=S-(T=3  AND  S=0)+(T=7  AND  S=l) 
1330  IF  INKEY$=CHR$(&HD)  THEN  GOTO  1360 

1340  IF  OS<>S  THEN  LOCATE  0S«19+1,23:PRINT  ，'  "；： OS=S:GOTO  1300 
1350  GOTO  1310 

1360  IF  OI(3*Y+X)=0  AND  OI(T(1-S))=0  THEN  BEEP: LOCATE  S«19+l:PRINT  " " 
；: GOTO  1200 
1370  T(S)=3*Y+X 
1380  GOSUB  1450 
1390  RETURN  1140 
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1400  'モ -ド ヘン コゥ 

1410  DUMMY=USR2(DUMMY) 

1420  IF  MD=1  THEN  MD=0  ELSE  MD=1 

1430  GOSUB  1450 

1440  RETURN  1140 

1450  ，オンお ゥ メイ J ヒ 3 が ト わ ショウ へ ン3 ゥ 
1460  LOCATE  0,23: PRINT  STRING$(39," ")； 
1470  IF  MD=0  THEN  1510 

1480  LOCATE  2,23:PRINT  "LowerKey  ，'+TN$(T(0)); 
1490  LOCATE  21,23: 匪 T  "UpperKey  "+TN$(T(1)); 
1500  GOTO  1520 

1510  LOCATE  10,23:PRINT  "Tone  "+TN$(T(0))J 
1520  IF  OI(T(1))=0  THEN  CALL  V0ICE(8T(D) 
1 530  D%= 1*256+0 1 (T ( 1 ) ) : DUMMY=USR3(D%) 
1540  IF  OI(T(0))=0  THEN  CALL  VOICE(8T(0)) 
1550  DSK=0I(T(0)):DUMHY=USR3(DS{) 
1560  RETURN 
1570  '力' メン ノ シ ヨキ 力 
1580  RESTORE  1770 
1590  FOR  1=0  TO  63 
1600  READ  TN$(I) 
1610  NEXT  I 
1620  LOCATE  5,0: PR  INT 
1630  N=0 

1640  FOR  1=0  TO  20 
1650  LOCATE  0,1+i 
1660  FOR  J=0  TO  2 
1670  PRINT  "  "； RIGHTS ( 
1680  N=N+1 
1690  NEXT  J 
1700  NEXT  I 

1710  LOCATE  0， 22: PR  INT 
1720  RESTORE  2000 
1730  FOR  1=0  TO  63 
1740  READ  OKI) 
1750  NEXT 1 
1760  RETURN 
1770  'オン シ 3 ク メイ ) DATA 
1780  DATA  "Piano 1 
1790  DATA  "Flute 1 
1800  DATA  "Trumpet  *", 
1810  DATA  "Organ  *", 
1820  DATA  "ElecPian*". 


HSX-HUSIC  ORGAN  PROGRAM" 


" ,,+STR$(N),2);"  ";TN$(N); 


" ";RICHT$("    *'+STR$(63),2);"  "； TN$(63); 


Piano  2  "Viol  in  *' 
Clarinet*", "Oboe  *' 
PipeOrgl  "."Xylophon  ' 
'Guiter  *M, "Santool ' 
Clavicod     "Harps icd*' 
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3A 
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8 方向 スクロール 
シ ユー ティング ゲーム 


MSX2  + の ハー ドゥエ アスク 口一  ノレ 機能 を 使った ゲーム を 紹介し ます. 

この ゲーム は 自分の 宇宙船 を 8 方向に 操作し， 向かって く る 敵 キャラ を 撃 
ち 落と しな 力、' ら， 宇宙空間に 浮かんで いる 4 つの 敵 母艦 を 倒す こと を 目的と 
した ゲームです. 途中 3 機 編隊の 敵 戦闘機が おそって きます が， うまく それ 
を 避けて 目的 を 遂行して ください. 

操作 法 は， ジョイスティック または， キ 一ボードの カーソル キーと スぺ一 
スキーで 遊ぶ ことができます. 自機は 3 機です. 敵機 は 弾 を 撃って きたり は 
しません 力、'， 編隊 飛行で 攻めて きたり， また 自 機よりも スピードが 速く， 執 
ように 追跡して くる もの もあります ので， うまく 避けながら， 進んで いって 
く ださい. 

敵の 母艦 は， 何 発 か 弾 を 当てなければ 倒す ことができません. また， 4 つの 
母艦の 位-匿 を拽 すため の MAP 機能 も 付いています. ゲーム 開始 時には， 画 
面に 表示され ています. 赤い ドット 力、'， 敵 母艦の 位置で， 白い ドット 力、'， 自 
分の いる 位 です. 

ゲーム 中に^ 分が 何処に いるの かわから なく なった 時 は， CTRL+STOP 
キー (CTRL キー を 押しながら STOP キー を 押す） を 押せば， ゲーム を一 時 
中断し， MAP を 画面に 表示す る ことができます. 何 かほ かの キー を 押せば， 
ゲームに 戻る ことができ ます. 


園 プログラム について 

この プログラム では， スピード を 実現す るた め， ほとんどの 重要な ルー f 
ンは マシン 語に なって います 力、'， マシン 語 も 含めた プログラムの 構造 は， や 
いたい 次の よ う になって います. 
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• キー入力 （ジョイスティック） センス ルーチン 
•  8 方向 スクロール ルーチン 
• 弾の 発射と 弾の 移動 ルーチン 
• 敵 キャラクタの 移動 ルーチン 

'弾， 自機， 敵 キャラクタ， ボス キャラクタの 当り 判定 ルーチン 
• ボス キャラクタ 表示 ルーチン 

この ゲームの なかで は， 8 ドッ ト ごとの 上下 左右 スクロール をして います. 

MSX2 で， スプ ライト を 使った アプリケーションで， スクロールの 処理 を 
する 場合に は， 気を付けなければ ならない ことがあります. X 軸 方向に スク 
ロール させた 場合， スクロールと一 緒に ス プライ トも 画面 上の 表示 位- S がス 
クロールして いってし まいます. 縦 方向に スクロール させた 場合 は， スプラ 
ィ ト の 表示 位置 を スクロールした 分 だけ 元に 戻す 作業 をし なければ な り ませ 
ん. 具体的に は， スクロールさせる 前に ス プライ トの 表示 を 禁止し， ス クロ一 
ルを 実行した のち， ス プライ トの Y 座標から スクロールして 移動した 分 を 差 
し 引く という ことになります. この ゲームで は， 自 機の 画面 上の 位置 は 固定 
されて いますから， いつも 画面の 中央に あるよう に すれば よい わけです. 横 
方向への ス クロール では スプラ ィ ト の 表示 位置 は 変化し ません. 

國 スクロール レジスタの 設定 方法 

BASCI に は SET  SCROLL ステート メン ト 力、' 用意され ています から， た 
いていの 場合 は SET  SCROLL だけで 問に 合う と 思われ ますが. ゲーム 等 を 
作る 場合 は， 処理 力、' 遅くて どうしょう もない 場合 も 考えられます. この プロ 
グラムで は スクロールの 処理 を 自前の ル一 チンで 実現して います. ス クロ一 
ル レジスタ に関して は 前に 紹介 したと お り です か *， ここでもう 一度詳 し く 説 
明し ましょう. 

画 水平 スクロール レジスタ 

水平 スクロール レジスタ は， 右方 向へ 8 ドット ごとに 移動させる ことので 
きる レジスタ （VDP(27)) と， 左方 向へ 1 ドット ごとに 8 ドット 分 移動させる 
ことので きる レジスタ （VDP(28)) の 2 つに 分かれて います. 
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今回の ゲームで は 8 ドット ごとの スクロール ですから， 1 つ 目の レジスタ 
(VDP(27)) のみに データ を 設定して いけば いいわけです. しかし 8 ドッ ト以 
下の 移動 量で スクロールさせる とき は， そうはい きません. 

では， 水平 スクロール 用の 2 つの レジスタに， どのように 値 を喾き 込め f， 
1 ドッ ト ごとの 水平 方向 スクロールが できるようになるの 力、 簡単な BASIC 
の サンプル プログラムで 説明し ましよ う. 


リスト 1 左方 向への スクロール 


100  J=6:l=I+i:lF  1=32  THEN  1=0 

110  IF  (V0P(-2)  AND  &B01000000)=0  THEN  GOTO 110 

120  VDP(27)=I:VDP(28)=7 

130  FOR  1=1 TO  180： NEXT 冒 

140  IF  (VDP(-2)  AND  &B 請麵 0)=0  THEN  GOTO 140 

150  VDP(28)=j:j=J-i:lF  J=-l  THEN  J=6:G0T0 100 

160  FOR 冒- 1 TO  180:NEXT 冒 

170  GOTO 140 


リスト 2 お 方向への スクロール 


100  VDP(26)=VDP(26)0R  &B00000010 

110  J=l:l=I-i:lF  l=-l  THEN  1=31 

120  IF  (VDPC-2)  AND  &B 麵麵) -0  THEN  GOTO 120 

130  VDP(27)=I:VDP(28)=0 

140  FOR  W=0  TO  30： NEXT  W 

150  IF  (VDP(-2)  AND  &B01000000)=0  THEN  GOTO 150 

160  VDP(28)=j:j=J+l:lF  J=8  THEN  J=l:G0TO 110 

170  FOR  W=0  TO  90： NEXT  W 

180  GOTO 150 


まず 左方 向に スクロール する 場合 を 考えて 見 ましよ う. 左方 向に ス ク^ー 
ル させる わけです から， 27 番 レジスタに 値 を喾き 込みます. 左方 向です かし， 
1 を 書き込めば よい わけです. そうすると， 左に 8 ドッ ト 画面が ス クロ一 へし 
ます. しかし， これで は 1 ドット ごとの スクロールに はなり ません. そこで， 
28 番 レジスタに， 7 を 書き込んで， 右方 向に 7 ドット スクロール させます'. 
これで， 見かけ上 1 ドット 左に スクロールした ことになります. 
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同様に 2 ドッ ト 左に スクロールしたい 場合 は， 27 番 レジスタに 1 を， 28 番 
レジスタに 6 を 書き込めば いいわけです. 

サンプル プログラム では 28 番 レジスタへ 書き込む 値 を 順次 小さ く しなが 
ら 8 ドッ トス クロール させ， また， 27 番 レジスタに 書き込む という 処理 を 繰 
り 返し 行って， 連続 的に スクロール させて います. 

右方 向への ス クロール も 左方 向への ス ク ロールと 同 じょう に 設定し ます. 
右方 向の 場合 は， レジスタに 与える データ を 少しずつ 大きく していく ように 
なります. 

讕 垂直 帰 線 期間 

110 行 は， VDP 力、' 垂直' 帰 線 期間で あ るか どう か を 調べる ための ものです. 
ためしに この 行 を 削除して みると， スクロール する ごとに 画面が 乱れて し ま 
うのが わかる と 思います. 水平 スクロール レジスタへの データの 書き込み を 
する 際に は， かならず この フラグが 1 になって いる こと を 確認して から 害き 
込む よ う にしなければ な り ません. 

垂直 帰 線 期間 というの は， CRT が 画面 を 1 画面 分の デー タを 書き終え て か 
ら， そ の 次の 画面 を 描 き 始める ま で 間の 期間で あ る こと を 示して います. 

垂直 帰 線 期間 以外の 期 問， つまり， CRT が 画面 を 描いて いる 途中で， 水平 
スクロール レジスタに 値 を^き 込む と， 画面が 乱れて しまいます. これ は， 
VDP 力、'， 画面 を 描いて いる 問で も， 水平 スクロール レジスタに データが 辔き 
込まれる と， すぐに 害き 込まれた 値に 従った 画像 データ を 出力して しまい， 
画面の 途中から， 横 方向の 位置が 一時的に ずれて しまう ために 起こる もので 
す. 垂直 帰 線 期 問 中に 水平 スクロール レジスタの 値 を を 書き換えれば， 乱れ 
る こと はあり ません. 

27 番 レジスタと 28 番 レジスタへの 書き込み を こ の 垂直 帰 線 期間 中 に 同時 
に 行えば， いったん 左側に 8 ドッ トス クロールして 右側に 7 ドッ ト戾 すと い 
う 処理 も， 画面 上に はまった く 現われなくなります. 

サ ン プル プロ グラム では， 実際に は 少しずつ 画面に ノィ ズが かか つてい る 
ように ちらついて しまいます. これば， 120 行で， 2 つの レジスタに 値 を 書き 
込んで いますが， そのと きの タイム ラグで， 2 つめの VDP コ マン ドの実 ォ亍 力、'， 
垂直 帰 線 期間 を 過ぎて しまつてから 行われて いる ことから 起き る ものです- 
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マシン 語で 組まれた プログラム であれば， 2 つの レジスタに 瞬時に データ を 
セットす る ことができ るので， 画面 も 乱れず， きちんと 1 ドット ごとに スク 
ロールして いるよう に 見え ま すが， 同様の こと を BASIC で 行う の は 難しく 
なります. いちおう この サンプル プログラム は， スクロールの 動作 原理 を理 
解す るた めの ものと 思って く ださい. 

右方 向への スクロールの サンプル プロ グラム VDP(26) (レ ジス タ #25) の 
ビッ ト 1， ビッ ト 0 は， 水平 スクロール 時の 効果 を 決定す るビッ ト です. SET 
SCROLL コ マン ドの MASK と 2PAGE パラメータに 当たり ます. 

この サンプル プログラム では， 画面 左端 8 ドット を ボーダー カラーで 隠す 
ように 設定して います. 

園 垂直 スクロール レジスタ 

垂直 スクロール レジスタ は， VDP(24) (レジスタ #23) に 当たります. この レ 
ジス タに値 を 0~255 までの 値 を鲁き 込む ことによって 表示 開始 ライン を 変 
更 する ことができます. ただし， スクロール は， Y 方向に 256 ライン 単位で 
行われ ますから， スプ ライト アトリビュート テーブル や， カラー テーブルな 
ど は， 他の ページに 移動させる 力、， 使わない ようにす る 必要が あります. 

垂直 スクロール では， 水平 スクロール のように， 垂直 帰 線 期間に コマンド 
を辔き 込む 必要はありません. 

_ リスト 3  ■ 下方 向への スクロール  •   

100  YDP(24)=X 

110  X=X+l:lF  X=256  THEN  X=0 
120  FOR  W=l TO  100: NEXT  W 
130  GOTO 100 


リスト 4 上方 向への スクロール 


100  VDP(24)=X 

110  X=X-1MF  X=-l  THEN  X=255 
120  FOR  W=l TO  100:NEXT  W 
130  GOTO 100 
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リス 卜 8 方向 スクロール' シ ユー ティング ゲーム 


1000  CLEAR  100,&HCF7F:DEFINT  A-Z:SCREEN  5.2,0:COLOR  15,0,0:CLS:HS=1000 
1010  RESTORE  2810: FOR  l=4HD240  T0&HDDA6:READ  K$:K=VAL("&H"+K$):POKE  I, 
KJNEXT 

1 020  DEFUSR=4HD240 ： DEFUSR 1 =&HD243 : 0EFUSR2=&HD246 : DEFUSR3=&HD249 

1030  0PEN"grp:"  FOR  OUTPUT  AS8HST0P  0FF:0N  STOP  GOSUB  1580 

1040  SET  PAGE0, 2 :CLS: RESTORE  2350 

1050  FOR  J=&H 棚 T0&H5EFF  STEP 128： FOR  l=J  TOJ+23 

1060  READ  A$:A=VAL("&H"+A$):VPOKE  I,A:NEXT  I, J 

1070  RESTORE  1710:FOR  I=&H7800  T0&H7BFF:READ  A:VP0KE  I,A:NEXT 

1080  RESTORE  1690 .'FOR  1=0  T0511  STEP16:READ  A: FOR  J=0  TO は： VPOKE  l+J.A 

:NEXT  J,  I 

1090  R=i:N=3:SC=0 

1100  RESTORE  1670： FOR  l=&HD200  T0&HD227:P0KE  1,0: NEXT 
1110  FOR  1=&HD200  TO&HD20F+((R-1)  M0D7)»4  STEP4:READ  X,Y 
1120  POKE  I+l,X:POKE  I+2,Y:P0KE  I+3,20:NEXT 
1130  SET  PAGE0 , 3 ： CLS ： X=0 ： Y=0 ： GOSUB  1660 

1140  X=X+INT(RND(1)*2560):IF  X>255  THEN  Y=Y+X^256:X=X  K0D256:iF  Y>211 
THEN  1160 

1150  PSET  (X,Y),10:GOTO  1140 

1160  COPY(0,0)-(255,211),3  TO(0,0),0:COPY(0,0)-(255,21 1),3  TO(0,0),1 

1170  VDP(5)=231 ： VDP(6)=47: VDP( 12)=2： VDP(9)=VDP(9)  0R2 

1180  RESTORE  1680： FOR  I=&HD228  T0&HD232:READ  A: POKE し A:NEXT 

1190  FOR  l=&HCF80  TO&HDlFF:POKE  1,0： NEXT 

1200  SET  PACEl,i:PRESET(96,50):PRINT  »l,"ROUND";R 

1210  POKE  &HD233.33-CR  M0D7)«3:P0KE  &HCF80, 1 :P0KE  &HCF8A.0 

1220  PRESET(104,80):PRINT  »1,MREST";N 

1230  SET  PAGEl,l:PRESET(72,150):PRINT  til. "HIT  SPACE  KEY!": GOSUB  1580 
1240  SET  PAGE0.0: COLOR  15:VDP(9)=VDP(9)  AND253:STOP  ON:K=i:COTO  1260 
1250  K=STICK(0)+STICK(1):ON  K+l GOTO  1350. 1260, 1270. 1280, 1290. 1300. 131 
0,1320.1330 

1260  P=0:Q=-6:GOTO  1340 
1270  P=4:Q=-4:G0T0  1340 
1280  P=6:Q=0:GOTO  1340 
1230  P=4:Q=4:G0T0  1340 
1300  P=0:Q=6:GOTO  1340 
1310  P=-4:Q=4:G0T0  1340 
1320  P=-6:Q=0:GOTO  1340 
1330  P=-4:Q=-4 
1340  W=K«2-2 

1350  POKE  &HCF8A,W:P0KE  &HCF86. P  AND255:P0KE  &HCF88.Q  AND255 

1360  IF  STRIG(0)+STRIG(1)=0  THEN  1410 

1370  IF  PEEK(4KCFA0)=0  THEN  POKE  &HCFA0,2:COTO  1410- 
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1380  IF  PEEK(4HCFC0)=0  THEN  POKE  &HCFC0,2:GOTO  1410 

1390  IF  PEEK(4HCFE0)=0  THEN  POKE  &HCFE0.2:COTO  1410 

1400  IF  PEEK(&HD000)=0  THEN  POKE  &HD000.2 

1410  A=USR1 (0) ： A=USR3(0) ： A=USR(0) ： A=USR2(0) ： A=USR I (0) 

1420  IF  PEEK(&HD22F)=0  THEN  1520  ELSE  IF  PEEK(&HCF80)=129  THEN  1250 

1430  FOR  1=0  T021 ： A=USR1 (0) ： A=USR(0) ： A=USR2(0) ： A=USR1 (0) ： FOR  J=0  T099: 

NEXT  J, I 

1440  SC=SC+PEEK(&HD231)*1280+PEEK(&HD230)*5:1F  SC>99999999#  THEN  SC=99 
999999ft 

1450  STOP  OFF:COSUB  1660:N=N-i: IF  N  THEN  1160 

14.60  SET  PAGE0,0:1F  SC<=HS  THEN  1480 

1470  HS=SC:PRESET(52, 160)： PRINT  81, "YOUR  SCORE  IS  BEST." 

1480  PRESET(88,70):PRINT  ill, "GAME  OVER" 

1490  PRESET(48,120):PRINT  81, "H 卜 SCORE: ";: PR  INT  81,USlNG"888888#r;HS 

1500  PRESET(72,130):PRINT  ttl, "SCORE: ";: PRINT  «l,USING"#«88«88r';SC 

1510  IF  STRIG(0)+STRIG(1)  THEN  1090  ELSE  1510 

1520  IF  PEEKC&HD240)  THEN  1250 

1530  STOP  OFF:GOSUB  1660:R=R+l: IF  R>99  THEN  R=l 

1 540  SC=SC+PEEK(&HD23 280+PEEK(&HD230)«5+Rx 1 000 

1550  IF  SC>9999d999»  THEN  S099999999S 

1560  SET  PAGE  0,0:PRESET(72.50):PR1NT  SI, USING" ROUNDS  CLEAR に； R 

1570  PRESET  (72, 140)：  PR  INT  #1, "SCORE:";  :PRINT  81,USING'TO8#W;SC:G0T 

0 1130 

1590  SET  PAGEl.i:GOSUB  1660 

15S0  LINE(185,63)-(250,192),15,B:LINE(186,64)-(249,191),1,BF 

1600  G=(PEEK(&HD229)x256+PEEK(&HD228)+128)/32:G=G  H0D64 

1610  H=(PEEK(&HD22B)«256+PEEK(&HD22A)+106)/32:H=H  M0D128:PSET(186+G,64 

+H),10 

1620  FOR  L=&HD200  T0&HD227  STEP4:IF  PEEK(L+3)=0  THEN  1640 
1 630  G=PEEK(L+ 0*8： H=PEEK(L+2)*8 ： PSET ( 1 86+G , 64+H ) , 8 
1640  NEXT 

1650  IF  STRIG(0)+STRIG(1)=0  THEN  1650  ELSE  RETURN 
1660  VDP(24)=0: VDP(27)=0: VDP(28)=0: RETURN 
1670  DATA  2,6,4,5,6, 10,1, 9,3, は, 7,3,5, 13, 6, 1,1, 14, 1,2 
1680  DATA  0,4.0.8,0,8,0,1.0,0.9 

1690  DATA  47, 100,47, 100,47, 100.47. 100,47, 100.47. 100.47. 100,47, 100 

1700  DATA  43.43.40.41.36,37.35,35,35.35,35,35,35.35,38.40 

1710  DATA  1,3,3, 19, 19,22,20,61,60,53, 117, 117, 124, 126, 119.51 

1 720  DAT A 1 28 , 1 92, 192 , 200 , 200 , 104 , 40 , 60 , 60 , 44 , 46 , 46 , 62 , 1 26 , 238 , 204 

1730  DATA  0.0.0,0.0.1.3.2,3,2.2,2,3.1.0.0 

1740  DATA  0.0,0,0.0. 128, 192. 192. 192. 192. 192. 192. 192. 128.0,0 

1750  DATA  0. 0,3, 30, 63, 123, 246, 252, 216, 48, 98, 101 , 99, 62, 29, 1 

1760  DATA  64. 158,62, 126,254,252,57,50, 180, 124,216， 184,248,240,224， 192 

1770  DATA  0.0.0.0.0.0.1.3.7,15.29.26.28.0,0,0 
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1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

I960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

128 

2170 

2180 

4 

2190 


DATA  0,0,0,0,0,0, 192, 192,64, 128.0,0,0,0,0,0 

DATA  0, 124,255,255.49, 127.224.206, 192,224, 127,49,255,255, 124,0 

DATA  0.0. 128.248. 128,224.62. 159,31,62,224. 128,248. 128,0,0 

DATA  0,0,0,0,0,0,31,49,63,31,0,0,0,0,0,0 

DATA  0.0,0.0,0,0, 192,96,224, 192.0,0,0.0,0.0 

DATA  1,29,62,99,97, 104,52,216,253,246, 123,63,30.3,0.0 

DATA  192,224, 240,248, 184,216, 124,52,58,57,252. 254, 126, 62, 158,64 

DATA  0,0,0,28,30,23,11,7,2,1,0,0,0,0,0,0 

DATA  0,0,0,0,0,0, 128. 192, 192, 192,0,0,0,0,0,0 

DATA  51,119, 126. 124,117,116,53,61,61.20,22, 19, 19,3,3. 1 

DATA  204, 238, 126, 62, 46, 46, 44. 60, 60, 40, 104,200,200, 192.192, 128 

DATA  0,0,1,3,2,3.2,2,2.3, 1.0.0,0,0,0 

DATA  0,0, 128, 192, 192. 192, 192. 192, 192, 192, 128,0,0,0,0,0 

DATA  3,7， 15.31,29,27,62,45,76, 156,63, 127, 126, 124, 12 し 2 

DATA  128, 184, 124, 198, 166,70. 12,27,63, 1 1 1.222.252. 120. 192,0.0 

DATA  0,0,0,0,0,0,1,2,3,3.0,0.0,0,0,0 

DATA  0,0,0,56,88, 184,240,224, 192, 128.0,0.0,0,0,0 

DATA  0.0,1,31,1,7.124,249,248,124,7.1,31,1,0,0 

DATA  0,62,255.255.140,254,7,115.3.7,254, 140,255,255,62.0 

DATA  0.0.0.0,0,0,3,6.7.3.0.0,0,0.0,0 

DATA  0.0.0.0.0.0,248, 140.252,248,0.0,0.0.0,0 

DATA  2. 121.124, 126, 127.56, 153,72.44,62.27,29.31,15.7,3 

DATA  0,0, 192, 120,252,222， 111,63,91,44, 12, 140.248, 112, 128, 128 

DATA  0,0,0,0,0,7,6.7.3,1,0,0,0,0,0,0 

DATA  0,0,0,0,0,0,128.192,160,208,240.112.0,0.0.0 

DATA  0,0,0,0,0,0,1.3,7,7.3,1,0.0,0,0 

DATA  0,0.0,0,0,0, 128, 192,224,224, 192, 128,0,0,0,0 

DATA  4, 14， 13, 14, 29,30,31, 30, 62,60, 56, 48,96,67, 60,0 

DATA  0,0.0, 128,64, 160.80. 168,84, 10,1,14. 1 12. 128,0,0 

DATA  0,7,31,61,113,99,228,201,250,201,228,99,113.61,31,7 

DATA  0, 192,240, 120,28, 140,78,38, 190,38,78, 140,28, 120,240, 192 

DATA  0,7,31,60,112,107.228.201,202.201.228,107.112,60,31.7 

DATA  0, 192,240, 120,28, 172,78,38. 166,38,78, 172,28, 120,240. 192 

DATA  0,0.28,62,61,58.21,11,11,21,58,61,62,28.0,0 

DATA  0,0,56, 124, 188,92, 168,208,208, 168.92. 188, 124,56,0.0 

DATA  0,3,7,7,4,59, 116, 117, 117, 116,59,4, 7, 7,3,0 

DATA  0,192, 224, 224, 32， 222, 47, 175, 175, 47， 222, 32, 224, 224, は 2,0 

DATA 1 , 29,61 , 123, 1 19, 247, 227. 225, 227, 229, 246, 119,1 17,54, 19. 1 

DATA  128, 184, 188,222,238,239, 199, 135, 199, 167, 111,238, 174， 108,200, 

DATA  7,31,63,124,121,249,241.247,237,220.183.51,62.61.3,7 

DATA  224 , 200 , 28 . 254 , 252 , 249 . 25 1 , 25 1 , 247 , 1 35 . 1 43 , 62 . 254 , 252. 248 • 22 

DATA  7,31, 63, 124, 0,62, 109,2 は, 219, 109， 62, 0,124, 63, 31, 7 
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2200 
2210 
2220 
4 

2230 

2240 

128 

2250 

2260 

4 

2270 
2280 
2290 
2300 
4 

2310 
2320 
2330 
2340 
2350 


DATA 
DATA 
DATA 

DATA 
DATA 

DATA 
DATA 

DATA 
DATA 
DATA 
DATA 


00, 


DATA 
DATA 
DATA 
DATA 
DATA 
00,00,00,00 
2360  DATA  00 
00.00,00,00 
2370  DATA  00 
44,00,00,00 
2380  DATA  00 
04,40,00,00 
2380  DATA  00 
00,44,00,00 
2400  DATA  00 
00,04,40.00 
2410  DATA  00 
00.04.40.00 
2420  DATA  00 
00,04,40.00 
2430  DATA  00 
00,04,40,00 
2440  DATA  00 
00,40.40,00 
2450  DATA  00 
00.40,40,00 
2460  DATA  00 
00,40,40,00 


224,248,252,62, 14,54, 120,255,255. 120,54, 14,62,252,248,224 

7,3,61,62,51,183,220,237.247,241,249, 121. 124,63, 15,3 

224 , 248 , 252 . 254 , 62 . 1 43 . 1 35 , 247 , 25 1 . 25 1 , 249 , 252 , 254 , 28 , 200 . 22 

1, 19,54, 117, 119. 246,229,227, 225, 227, 247, 1 19, 123,61,29. I 
128,200, 108, 174,238, 111, 167, 199. 135, 199,239,238.222. 188, 184, 

7,31,63. 127， 124,241,225,239,223,223, 159,63, 127,56, 19,7 

224, 192, 188, 124,204,237,59, 183,239, 143， 159, 158,62,252,248,22 

7,31,63,124.112,108,30,255,255,30, 108. 112, 124.63,31,7 
224,248,252,62,0, 124, 182.219,219. 182, 124,0.62.252,248,224 
7, 19,56, 127, 63, 159. 223, 223,239, 225, 24 1. 124, 127.63, 15,3 
224 . 248 , 252 . 62 . 1 58 . 1 59 . 1 43 , 239 , 1 83 , 59 . 237 , 204 , 1 24 . 1 88 . 1 92 , 22 

3.7.10,13,6.9,6.3.0,0,0,0 
128,96， 160,208, 176, 176,96, 128.0.0,0,0 
92.58.215,234, 157,115, 173,78, 1 17,57,62,29,3 


0,0,0,0, 
0,0,0,0, 
7,24.39, 


サ ^ 

CO 改 
一 

CM  CSk 

171, 
40, 

- CO 
ね - 

238,92, 184,240, 
04,40,00,00,00, 

192 
00, 

00, 

00, 

00. 

00. 

00. 

00, 

44, 

00, 

40, 

09, 

80. 

04, 

00, 

,44, 

00, 

00, 

00. 

00. 

00, 

44, 

40, 

00, 

00. 

04, 

40, 

,00, 

44, 

97, 

79, 

44, 

00, 

04. 

40, 

00, 

00, 

04. 

04, 

40, 

00, 

00, 

00, 

44, 

40, 

04, 

44, 

70, 

07, 

44, 

40, 

04, 

44, 

00, 

00, 

00. 

44, 

00, 

00. 

00. 

00, 

44, 

,00, 

04, 

40, 

09, 

90, 

04, 

40, 

00, 

44, 

00, 

00, 

00. 

40, 

,m, 

.00, 

00, 

04, 

04, 

00, 

04, 

44, 

97, 

79, 

44, 

40, 

00. 

40, 

40, 

00, 

00. 

40, 

,m, 

00, 

00, 

04， 

,40, 

,00, 

,44, 

,44. 

,70, 

J7, 

,44, 

,44, 

,00, 

04, 

,40, 

,00, 

,00. 

40, 

,00, 

,00, 

,00, 

,04, 

,44, 

,00, 

,44, 

,40, 

,09, 

,90, 

,04, 

,44, 

,00, 

,44, 

,40, 

,00, 

,00, 

40, 

,00, 

,00, 

,00, 

,04, 

,44, 

,00, 

,44, 

,44, 

,97, 

,79, 

,44, 

,44, 

,00, 

,44, 

,40, 

,00, 

,00. 

04, 

,00, 

,00, 

,00, 

,04, 

,44, 

.00, 

,44, 

,44, 

,70, 

,07, 

,44, 

,44, 

,00, 

,44, 

,40, 

,00, 

,00. 

04, 

,00, 

,00, 

,00, 

,04, 

,40, 

,40, 

,04, 

,40, 

,09, 

,30, 

,04, 

,40, 

,04, 

,04, 

,40, 

,00, 

,00. 

04, 

,00, 

,05, 

,50, 

,04, 

,40, 

,40, 

,04, 

,44, 

,97, 

,79, 

,44, 

,40, 

.04, 

,04 

,40, 

,05, 

,50, 
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2470  DATA  00 

00 

44 

00 

55 

55 

04 

04 

44 

00 

44 

70 

07 

44( 

00 

44 

40 

55 

55 

00,44,00,00 

2480  DATA  00 

04 

44 

00 

55 

55 

04 

04 

44 

00 

04 

40 

04 

40, 

00 

44 

*• リ， 

55, 

55 1 

00,44,40,00 

24S0  DATA  00 

04 

44 

05 

55 

55 

50 

44 

44 

40 

04 

40 

04 

40, 

04 

44 

44 

05, 

55 

55, 

50,44.40,00 

2500  DATA  04 

44 

44 

05 

55 

55 

55 

04 

44 

44, 

04 

00 

00 

40, 

44 

44 

40 

55, 

55 

55, 

50,44,44,40 

2510  DATA  74 

44 

00 

00 

05 

55 

55 

50 

44 

40 

44 

00 

00 

44, 

04 

44 

05 

55 

55 

50, 

00.00,44,47 

2520  DATA  74 

44 

04 

44 

07 

77 

77 

77 

04 

04 

00 

88 

88 

00 

40 

40 

77 

77 

77 

70 

44,40,44,47 

2530  DATA  74 

44 

0B 

B4 

05 

55 

55 

55 

50 

40, 

88 

88 

88 

88 

04 

05 

55 

55 

55 

50, 

4B, 80.44,47 

2540  DATA  74 

44 

04 

44 

05 

55 

55 

55 

04 

06 

88 

88 

88 

F8 

80 

40 

55 

55 

55 

50， 

44,40.44,47 

2550  DATA  74 

44 

0B 

B4 

05 

55 

55 

55 

04 

06, 

88 

88 

88 

88 

80 

40 

55 

55 

55 

50, 

4B.B0.44.47 

2560  DATA  74 

44 

04 

44 

05 

55 

55 

50 

40 

66 

88 

88 

88 

8F 

88 

04 

05 

55 

55 

50, 

44,40.44,47 

2570  DATA  74 

44 

0B 

B4 

05 

05 

55 

50 

40 

66 

88 

88 

88 

8F 

88 

04 

05 

55 

50 

op 

50 

4B.B0.44.47 

2580  DATA  44 

44 

04 

44 

05 

55 

55 

50 

40 

gg 

68 

38 

88 

RC 

o  r 

nn 

oo 

Km 

GIR 

OO 

44,40,44,44 

2590  DATA  44 

44 

06 

B4 

00 

00 

00, 

00 

40 

66 

68 

88 

88 

8F 

88 

04 

w 

w 

VV 

vv  • 

4B.B0, 44.44 

2600  DATA  44 

44 

04 

44 

04 

04 

07 

77 

04 

06 

66 

88 

88 

88 

80 

77 

70 

Aa 

44,40,44,44 

2610  DATA  44 

44 

00 

00 

04 

04 

04 

44 

04 

06 

66 

66 

88 

88 

80 

«i リ 

44 

40 

A9i 

00  00  44  44 

2620  DATA  44 

HP 

44 

44 

44 

V** 

リ / 

74 

/a 

gg 

PR 

リ U 

リリ 

u ひ 

(AA 

VH 

(kA 

47 

7d 

/  u 

44,44,04,44 

2630  DATA  44 

04 

44 

44 

44 

04 

04 

44 

44 

リ H 

00 

gg 

gg 

m 

W 

AOi 
Hi/ 

AA 
4*1 

AA 
HH 

Atk 

AA 

44,44,40,44 

2640  DATA  40 

44 

44 

44 

44 

04 

04 

44 

44 

00 

44 

00 

00 

44 

00 

44 

44 

40 

40 

44( 

44,44,44,04 

2650  DATA  04 

44 

44 

44 

44 

04 

04 

44 

00 

44 

00 

00 

00 

00 

44 

00 

44 

40 

40 

44, 

44.44,44,40 

2660  DATA  04 

44 

44 

44 

44 

04 

04 

40 

44 

49 

00 

00 

00 

00 

94 

44 

04 

40 

40 

44. 

44.44,44.40 

2670  DATA  00 

44 

44 

44 

44 

04 

04 

40 

04 

47 

99 

99 

99 

99 

74 

40 

04 

40 

40 

44, 

44,44.44.00 

2680  DATA  05 

04 

44 

44 

44 

00 

04 

40 

40 

44 

77 

77 

77 

77 

44 

04 

04 

40 

00 

44. 

44,44,40,50 

192 


1 8 方向 スクロール *シ ユー ティング ゲーム 


2690  DATA  04.50,44,44 

.44 

,04.04 

,00 

,44 

.04,00, 

,m 

.00 

.00, 

,40 

,44 

.00, 

,40 

,40 

,44, 

44,44.05,40 

2700  DATA  04,45,00,44 

,44, 

.04,00 

,50, 

,44, 

.49.00, 

,00, 

,00 

.00, 

,94 

,44, 

,05, 

廉 

,40, 

.44, 

44,00,54,40 

2710  DATA  00,44,55,00, 

,00, 

,00,55, 

,50, 

,04, 

,47,99, 

,99 

,99, 

,99, 

,74, 

.40, 

,05, 

,55{ 

,00, 

サ 

00.55,44,00 

2720  DATA  00.44,45.55, 

,55, 

,55.55, 

,40, 

,40, 

,44.77, 

,77, 

,77, 

,77, 

,44, 

,04, 

,04, 

,55, 

,55, 

,55. 

55,54.44,00 

2730  DATA  00,04.44,45, 

,55, 

,55.44, 

,00, 

,44, 

,04,00, 

,00, 

,00, 

,00, 

,40, 

,44, 

,00, 

,44, 

,55, 

,55, 

54,44,40,00 

2740  DATA  00,00,00,44, 

,44, 

,44,40, 

,00, 

,44, 

,49,00, 

,00, 

,00, 

,00, 

,94, 

,44, 

,00, 

,04, 

,44, 

,44, 

44,00,00,00 

2750  DATA  00,00,00,04, 

,44, 

,44,40, 

,00, 

,44, 

,47.99, 

,99, 

,99, 

,99, 

74, 

,44, 

,00, 

,04, 

,44, 

,44. 

40,00,00,00 

2760  DATA  00,00,00,00, 

,44, 

,44.00, 

,00, 

,44, 

,40,77, 

,77, 

77, 

77, 

04, 

,44, 

,00, 

,00, 

,44, 

,44, 

00,00,00,00 

2770  DATA  00.00,00,00, 

00, 

00,00, 

,00, 

,04, 

40,00, 

00, 

00, 

00. 

04, 

40, 

00, 

00, 

00, 

,00. 

00.00,00,00 

2780  DATA  00,00,00,00, 

'00. 

00,00, 

戴 

.04. 

44.00. 

00, 

00, 

00. 

44. 

40, 

00, 

,00, 

00, 

,00. 

00,00,00,00 

27S0  DATA  00.00.00,00, 

00, 

SI 

00, 

00. 

44.40. 

00, 

00. 

04. 

44, 

00, 

00, 

00, 

00, 

00. 

2800  DATA  00,00,00,00, 

00. 

00.00, 

00. 

00, 

00,44. 

40, 

04, 

44. 

00, 

00, 

00, 

00, 

00, 

00, 

2810  DATA  C3.7CD4.C3, 

B7, 

D2.C3, 

A7, 

DA, 

ED.5F, 

,5F, 

,3A, 

,36, 

D2, 

,83, 

,32, 

,36, 

D2, 

,21. 

32.D2.35.C0 

2820  DATA  CD,A1,D2,79, 

B7, 

20.06, 

3E, 

01, 

32,32， 

D2, 

C9, 

3A, 

33, 

D2, 

32, 

32, 

,D2, 

ED, 

5F.E6.0E.16 

2830  DATA  00.5F.21.91, 

D2, 

19,46, 

23, 

4E, 

C5.CD, 

Al, 

D2, 

38, 

10, 

CI, 

DO, 

71, 

00, 

DD, 

70.1E.3A.36 

2840  DATA  D2.DD.77.09, 

10, 

EB.C9, 

CI, 

C9. 

01,07. 

0], 

07. 

01. 

09, 

01, 

07, 

03. 

07, 

03. 

09.03,08.03 

2850  DATA  0A.OD.2I.20, 

00. 

11.20, 

00. 

01. 

DO. 

7E, 

00. 

B7, 

C8, 

0D. 

DD, 

19. 

10. 

F6.37.C9.DD 

2860  DATA  21, 20, D0, 06, 

0B; 

DD.7E, 

00. 

FE, 

87.38, 

05. 

C5, 

CD. 

EA, 

02. 

CI. 

II, 

20. 

00, 

DDJ9.10.ED 

2870  DATA  DO.7E.00.FE, 

8B, 

C0.CD, 

EA, 

D2， 

DD.7E, 

0D. 

87. 

87. 

21, 

FF. 

Dl, 

16. 

00， 

5F, 

19.DD.7E.10 

2880  DATA  77.C9.CD.A2. 

D3. 

3A.80. 

CF, 

FE, 

81.20. 

0A. 

FD. 

21. 

80, 

CF. 

CD, 

6F. 

D3, 

D2, 

3F.D3.3A.A0 

2890  DATA  CF.FE.82.20. 

0A. 

FD.21, 

A0. 

CF. 

CD.6F. 

D3. 

D2. 

3 に 

D3. 

3A. 

C0, 

CF. 

FE, 

82. 

20.0A.FO.21 

2900  DATA  C0.CF.CD.6F, 

D3. 

D2.3F, 

D3. 

3A. 

E0.CF. 

FE. 

82, 

20. 0A. 

FD, 

21. 

E0.CF. 

CD. 

6F.D3.D2.3F 
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2910  DATA  D3,3A.00,D0.FE,82.C0,FD,21,00,D0,CD,6F,D3,D8,FD,35.1D.20. 13, 
FD.7E.00.E6 


2920  DATA  3F, 

FD.77.1E, 

16, 

00. 5F. 

21. 

70, 

D4.19. 

7E, 

FD,77.00,DD,35. 

1D.C0.DD, 

7E,00,E6,3F 

2930  DATA  DD, 

77, 

IE, 16, 

00, 

5F.21, 

70, 

D4, 

19, 

7E, 

DD, 

77, 

00.C9. 16,00. 

FD,5E,0B, 

21, ED, D3, 19 

2940  DATA  FD, 

7E, 

04, 5F, 

86, 

23. 

B8, 

30, 

06, 

7E, 

83, 

B8, 

30. 

05.C9.57. 

79, 

BA,D8,23, 

FD,7E,02,5F 

2950  DATA  86, 

23, 

09, B8, 

30, 

07. 

D9, 

7E, 

83, 

D9, 

B8, 

09, 

C9, 

57,79. 

BA. 

D9, 

C9.DD.5E, 

0B, 16,00,21 

2960  DATA  ED, 

D3, 

19, 

DD, 

7E, 

04. 

5F. 

86, 

FE, 

6A, 

38, 

05, 

FE, 

C0, 

38. 

33, 

AF. 

23.47.7B, 

86.FE.6A.38 

2970  DATA  06, 

FE. 

C0, 

30, 

26, 

3E， 

69, 

23, 

4F. 

DD, 

7E, 

02. 

5F, 

86. 

FE, 

80, 

38. 

05.FE.C0, 

38, 15, AF, 23 

2980  DATA  08, 

,7B, 

86, 

FE, 

80, 

38, 

06, 

FE, 

C0, 

,30, 

08, 

3E, 

7F. 

D9, 

4F, 

08. 

47, 

D9.C9.F1, 

C9, 01, 06. 01 

2990  DATA  06, 

,01, 

06, 

01, 

,06, 

,01, 

,06, 

,01, 

,06, 

,01, 

06, 

01, 

06, 

01, 

06, 

01, 

06, 

01,06,01. 

06,01,06,01 

3000  DATA  06, 

,01, 

,06, 

01, 

,06, 

,01, 

,06， 

,01, 

,06, 

,01, 

,06, 

,01, 

,06, 

01, 

,06, 

01, 

06, 

,01,06,01, 

06,01,06,01 

S010  DATA  06, 

,01, 

06, 

01, 

,06, 

01, 

,06, 

01, 

,06, 

01. 

,06, 

,01, 

,06, 

01, 

MS, 

,01, 

06, 

,00,07,00, 

07,00,07,00 

3020  DATA  07, 

,00, 

,07, 

M, 

,07, 

,00, 

,07, 

,00, 

,07, 

,00, 

,07, 

,00, 

,07, 

,00, 

,07, 

,00, 

,07, 

,00,07,00, 

07,00,07,00 

3030  DATA  07, 

,00, 

,07, 

,00, 

,07, 

,00, 

,07, 

,00, 

,07, 

,00, 

,07, 

,00, 

,07, 

,00, 

,07, 

,00, 

,07, 

,00,07,00, 

07,03,04,03 

3040  DATA  04, 

,01, 

,06, 

,01, 

,06, 

,06, 

,10, 

,06, 

,11, 

,03, 

,04, 

,83, 

,84, 

,85, 

,86, 

,05, 

,05, 

,05,05,06, 

21.A7.DD.22 

3050  DATA  34, 

,D2, 

,06, 

,11, 

,DD, 

,21, 

,80, 

,CF, 

,C5, 

,DD, 

,7E, 

,00, 

,E6, 

,3F, 

,28, 

,11, 

,87, 

,26.00,6F. 

11.AD.D4.19 

3060  DATA  7E, 

,23, 

,66, 

,6F, 

,01, 

,A1, 

,D4, 

,C5, 

,E9, 

,01, 

,20, 

,00, 

,DD, 

,09, 

,C1, 

,10, 

,DF, 

,2A,34,D2, 

36.D8.C9.C5 

3070  DATA  D4, 

,D3, 

,D5, 

,06, 

,D6, 

,4C, 

,D6, 

,5E, 

,D6, 

,71, 

,D6, 

, !C, 

,D7, 

,69, 

,D7, 

,3E, 

,D7, 

.E4.D7.5C, 

D8,DD,CB,00 

3080  DATA  7E, 

,20, 

,18, 

,DD, 

,36, 

,03, 

,00, 

,DD, 

,36, 

,04, 

,31, 

,DD, 

,36, 

,01, 

,00, 

,DD, 

,36, 

,02,3C，DD, 

36.1D.01.OD 

3090  DATA  CB, 

,00, 

,FE, 

,3A, 

,86, 

,CF, 

,16, 

,00, 

,5F, 

,FE, 

,80, 

,38, 

.01, 

,15, 

,2A, 

,28, 

,D2, 

.19.7C.E6. 

07.67.22,28 

3100  DATA  D2, 

,3A, 

,88, 

,CF, 

,16, 

,00, 

,5F, 

,FE, 

,80, 

,38, 

,01, 

,15, 

,2A, 

,2A, 

,D2, 

,22, 

,2C, 

,D2, 19.7C, 

E6.0F.67.22 

3110  DATA  2A, 

,D2, 

,7D, 

,C6, 

,62, 

,FE, 

,D9, 

,28, 

.01, 

,3D, 

,32, 

,A7 

.DD, 

,32, 

,AB, 

,DD, 

,3E, 

.78.32.A8, 

DD.32.AC.DD 

3120  DATA  3A, 

,8A, 

,CF, 

,87, 

,87, 

,32, 

,8B, 

,CF, 

,32, 

,A9, 

,0D 

.C6 

.04, 

.32, 

,AD, 

.DD, 

,21 

,AF,DD,22, 

34.D2.3A.80 
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3130  DATA  D1 

FE 

8B 

C8 

01 

00 

0A 

FD 

21 

24 

02 

FD 

7E 

'03 

B7 

28 

4A 

0C 

PO 

66. 

01, 2E, 00, ED 

3140  DATA  5B 

28 

D2 

B7 

ED 

52 

38 

0C 

7C 

B7 

20 

37 

CB 

3D 

7D 

32 

82 

Dl 

18 

0 

；, 

7D, 11,D2,FF 

3150  DATA  B7 

ED 

52 

38 

26 

CB 

2F 

32 

82 

01 

FD 

66 

02 

2E 

00 

ED 

5B 

2A 

D2 

B7. 

ED, 52, 7D, 38 

3160  DATA  0A 

U 

D4 

00 

B7 

ED 

52 

38 

16 

18 

08 

11 

D2 

FF 

B7 

ED 

52 

30 

10 

11. 

FC.FF.FD. 19 

3170  DATA 10 

A9 

79 

32 

2F 

D2 

C9 

CB 

3F 

18 

a? 

CB 

2F 

32 

84 

ni 

V  1 

78 

f リ 

32 

Oil 

Dl, 

AF  3?  ftl ni 

OlfiCI  nATA 10 
OlOv  Vn I A  Ou 

00 

Oo 

ni 

oc 

AD 
VO 

oo 
oc 

019 

m 

Ul 

en 
rUi 

ft 

no 
vo 

oo 
OL 

on 

n i 

rU 

7C 
It 

VI 

6i 

ob 

Dl. 

pn  7p  do  oo 

0 1 nATA  fifl 
01910  UA I A  00 

m 

VI 

し 3 

nn 
UU 

PR 
し B 

aa 

VV 

It 

oa 
cv, 

OA 

nn 
UU 

ob 

(to 
VD 

in 
4D 

OO 

09 

rtft 
CO 

nn 
UU, 

OD 
OD 

ID, 

di nn  ciq 

WW  UAI A  vjUt 

nn 

UUi 

00 

at 

VI, 

1919 

nn 

ク c 

00, 

194 1 

61, 

nn 

UUi 

oe 
OOi 

ao 
vc, 

<5 し 

nn 
UU, 

ob 

t9 し 

lb 

oAi 

O 1 

oA 

C 

CD  5R  no  nn 

3210  DATA  CB 

aa 

r  b  i 

na 

no 

Uv  • 

DD 

CR 

aa 

W  i 

7B 

f  b  i 

2F 

nn 

Uu 

3g( 

I  £# 

21 

■if. 

DD. 

74. 0F  DD  75 

1  "t 食！^ 暴 f           t  9  V 

3220  DATA  0E. 

DO, 

74, 

11, 

DD, 

75, 

10, 

DD, 

36, 

12, 

0], 

DD, 

36 

06, 

00 

DD 

3g 

05f 

aa 

W  i 

DD, 

36, 08, 00, DO 

3230  DATA  36, 

07, 

00, 

DD, 

36, 

09, 

C8, 

DD, 

CB, 

00, 

FE, 

CD, 

D0 

D9' 

DD 

35 

0D 

C0, 

DD, 

36, 

00, 00, C9, 02 

3240  DATA  7C, 

01, 

78, 

00, 

DD, 

CB, 

00, 

7E, 

20, 

E9， 

DD, 

36， 

00 

02， 

21 

5B, 

06, 

18, 

B8, 

02. 

78.00.DD.CB 

3250  DATA  M 

7E 

D7 

2i 

no 

23 

22 

U£«  ， 

DD， 

an 

Wi 

18 

op 

or i 

nn 

CB 

レ D， 

00, 

7E  90  si  nn 

f  u  t        i  U 1 i  LIU 

S?fifl  IIATA  PR 

OCiVV   Un  l  n  I/O， 

(1(1 
VVt 

nn 

vVt 

IVi 

aa 

91 

bl ， 

じレ， 

ひひ， 

r  u 

Ad 
rtu 

U 1 i 

r  U| 

OO, 

80, 

FD  3B  09  C9 

3270  DATA  FD 

OU  i 

an 

r  u 

36( 

P 1 i 

aa 

cn 

r  u  i 

OU i 

fo1 

aa 

nn 

7P 

•  w 

ou 

23 

FD 

77 

02. 

DD.7E.04  86 

W  f  1 レ i レ"9  f  W リ 

3280  DATA  23 

77 

23, 

56, 

23, 

72 

リリ i 

FD， 

73 

V リ 

23, 

5g 

23 

r  u  i 

72, 

08  FD  73  07 

V リ | 1 V  t  1 リまリ 1 

S29fl  DATA 11 

FD 
r  u， 

iq 

id 

ri 

V 1 i 

rq 

nn 

Ov 

aw 

vu 

c»v 

nn 

ou 

aa 
w 

pq 

nn 

E5. 

nn  ？ i Aft  ni 

PO 

PC 

レ o 

nn 

ad 

し 4 

na 

U|0 

PI 
し 1 

1 1 

10 し 

vv 

nn 

UU 

IQ 
1 0 

\a 

XV 

pi 
r  I 

nn 

CI 
C I 

C9， 

flft  d9  fiffl  M 

CC 

rr 

w し 

AC 
*J レ 

cc 
rr 

wo 

vv 

v  1 

aa 

vv 

WW 

flp 
ぬし 

an 

し 

QA 

Oh 

<m 

%)v 

00. 

08, 0E. 00. 00 

3320  DATA  00 

01 

04 

0C 

4C 

FF 

B4 

00 

02 

08 

00 

FF 

00 

00 

04 

04 

4C 

FF 

4C 

FF, 

DO.CB.00.7E 

3330  DATA  20 

19 

CD 

FA 

D8 

DD 

36 

0C 

04 

DD 

36 

0B 

44 

DD 

36 

09 

C0 

DO 

36 

ID. 

0I.DD.7E.0A 

3340  DATA  CD 

5E 

D9 

C3 

D0 

D9 

DD 

CB 

00 

7E 

20 

F7 

CD 

FA 

D8 

DD 

36 

0C 

08 

21, 

64.D7.DD.74 
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3350  DATA  0F, 

DD, 

75, 

0E. 

DO, 

74, 

U, 

DD. 

75, 

10, 

DD, 

36, 

12, 

01,50,01,54 

3360  DATA  00, 

DD. 

CB. 

00. 

7E, 

20, 

2B, 

CD. 

FA. 

D8. 

DD. 

36. 

ID. 

D7.DD.74.0F 

3370  DATA  DO. 

75. 

0E. 

DD. 

74, 

11, 

DD. 

75. 

10. 

DD, 

36, 

12, 

01, 

08,DD,7E,0A 

3380  DATA 18, 

3F, 

DD. 

35. 

0D, 

20. 

3D. 

DD. 

36, 

0D, 

0C, 

01. 

0C, 

04.ED.44.0E 

3330  DATA  04, 

5F, 

DD, 

7E. 

04, 

D6. 

31, 

30, 

04, 

ED, 

44. 

06, 

08, 

05. 38, 0B, 87 

3400  DATA  BA, 

30, 

氣 

CB, 

3F, 

CB, 

22, 

BA, 

30, 

0A, 

78. 

18, 

01, 

C3.D0.D9.01 

3410  DATA  48, 

01, 

4C, 

00, 

DD, 

CB, 

00. 

7E, 

20. 

18, 

CD. 

FA, 

D8, 

01.DD.36.0C 

3420  DATA  08, 

DD, 

,36, 

0D, 

,0E, 

DD, 

7E, 

M, 

18, 

,42, 

DD, 

,35, 

,0D, 

7E.02.B6.3C 

3430  DATA  38, 

M, 

,FE, 

,04， 

,38, 

05, 

21, 

,5A, 

D8, 

,18, 

11, 

21, 

,57, 

21, 54. D8, 18 

3440  DATA  03, 

,21, 

,57, 

,D8, 

DD, 

7E, 

04, 

D6, 

31, 

,38, 

08, 

,FE, 

,04, 

FC.30.01.2B 

3450  DATA  7E, 

,DD, 

,77, 

0A, 

,87, 

,C6, 

,58, 

,DD, 

,77, 

,0B, 

DD, 

,7E, 

,0A, 

04,02,08,00 

3460  DATA  00, 

,0A, 

,0E, 

DD, 

CB, 

,00, 

,7E, 

,20, 

,09, 

DD, 

,36, 

,0B, 

66.06.2E.00 

3470  DATA  ED, 

,5B, 

,28, 

,D2, 

,B7, 

ED, 

,52, 

,38, 

,0B, 

,7C, 

B7, 

,20, 

,40, 

4D.U,D2,FF 

3480  DATA  B7， 

,ED, 

,52, 

38, 

,30, 

CB, 

,29, 

DD, 

,71, 

,02, 

風 

,66, 

,08, 

ED.52.4D.38 

3490  DATA  0E, 

,11, 

,D4, 

風 

,B7, 

,ED, 

,52, 

,30, 

,14, 

,CB, 

,39, 

,DD, 

,71 

52. 38. 06, CB 

3500  DATA  29, 

,DD, 

,71, 

,04, 

,C9, 

,DD, 

,36, 

,00, 

,00, 

,C9, 

,2C, 

,F9, 

,7F 

87,11, 3C.71 

3510  DATA  Fl, 

,31, 

,3C, 

,F1, 

,87, 

,31, 

,1C, 

,71, 

,F1, 

,11， 

,06, 

,00, 

,00 

02,04.02,02 

3520  DATA  04, 

,04, 

,02, 

,04, 

,04, 

,06, 

04, 

,04, 

,06, 

,06, 

,04, 

,06, 

,06 

00.FE.DD.36 

3530  DATA  03, 

,00, 

,OD, 

,36, 

,01, 

,00, 

,DD, 

,7E, 

,09, 

,E6, 

,03, 

,5F, 

,3A 

21.DA.D8.19 

3540  DATA  7E, 

,5F, 

,87, 

,C6, 

,08, 

,E6, 

,0E, 

,DD, 

,77, 

,0A, 

,21, 

,BA, 

,D8 

5F,19,DD,7E 

3550  DATA  0A, 

,B7, 

,28, 

,17, 

,FE, 

,08, 

,28, 

,13, 

,7E, 

,23, 

,DD, 

,77, 

,02 

CB,3F,88.DD 

3560  DATA  77, 

,04, 

,C9, 

,DD, 

,7E, 

,09, 

,CB, 

,3F, 

,CB, 

,3F, 

,CB, 

,3F, 

,86 

04, C9, 87, 87 

01. DD, 

00, 

09.C8.18.CD. 

01. 

DD. 

t\o 
00, 

0C. 

05,21. 

DF, 

DD. 

36. 

09  • 

C8. 

DD.36, 

0D. 

00. 

DD. 

7Ef 

02. 

06. 3C, 

30. 

FE. 

05, 

O  Q 

00, 

14, 

57, 

7B, 

FE, 

79. 

DD, 

77, 

0A. 

CD, 

5E. 

D9, 

DD, 

36, 

09, 

C0, 

DD. 

36. 

ID. 

20, 

,49， 

nn 

>  uv, 

36, 

,0D, 

12, 

DD, 

D8, 

18, 

» し， 

FE, 

,FC, 

,30， 

05, 

38, 

09, 

C3, 

,40, 

風 

FE, 

CD, 

,5E, 

no 

,C3, 

,D0, 

D9, 

,06. 

80, 

DD, 

1 し 0, 

,00, 

,FE, 

,C9, 

,DD, 

CB, 

3D, 

nn 

,75, 

,02, 

18, 

M, 

2E, 

,00, 

, bu, 

,5B, 

,2A, 

D2, 

,B7, 

04, 

,C9, 

,11, 

,D2, 

pp 

, FF, 

, B7, 

,ED, 

21, 

,2C, 

,69, 

,F9, 

,21, 

,1C, 

,F1, 

02, 

,00, 

.00, 

,02, 

,02, 

,00, 

,02, 

00, 

tin 

,06, 

,06, 

00, 

,00, 

,DD, 

, CB, 

8A, 

,CF, 

,87, 

,83, 

,16, 

,00, 

,5F. 

DD, 

,7E, 

,1E, 

,87, 

,87, 

,87, 

,83, 

DD, 

,7E, 

,09, 

,CB, 

,3F, 

,CB, 

,3F, 

,23, 

,DD, 

,77, 

,02, 

,7E, 

,DD, 

,77. 
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3570  DATA 16, 
00.00,19.10 
3580  DATA  FD, 
DD.75.05.C9 
3590  DATA  73, 
35.00,82.00 
3600  DATA  64, 
35,00,7E,FF 
3610  DATA  00. 
DD,CB,09,7E 
3620  DATA  C4, 
46.C0.2A.34 
3630  DATA  02. 
23.DD.7E.01 
3640  DATA 17, 
DD.4E.07.DD 
3650  DATA  66. 
74, 04, DD, 75 
3660  DATA  03, 
46.06.DD.4E 
3670  DATA  05, 
42.DD.74.02 
3680  DATA  DD. 
C9.OD.CB.09 
3690  DATA  C6, 
6E.0E.7E.23 
3700  DATA  DD. 
DD.CD.C7.DB 
3710  DATA  3A. 
FE.8B.20.5F 
3720  DATA  3A, 
4A,FE,69,38 
3730  DATA  08, 
ED, 44. 87, 47 
3740  DATA  3E, 
92,57,18,04 
3750  DATA  06, 
CD. 45, DD, CD 
3760  DATA  9A. 
F3, CD, 47, 00 
3770  DATA  FB, 
0E.17.F3.CD 
3780  DATA  47, 
F3,  CD, 47. 00 


00, 5F.  21 , 90. 09, 19. 5E,  23, 56, 23，  7E,  23, 66, 6F,  E5.  DD,  46, 0C,  2 
DD,74.08,DD,75.07.D1,DD.46.0C,21,00,00,19.10.FD.DD,74,06 
FF,  00.00. 7E, FF, 35, 00, 9C. FF, 64.00.C8. FF. 82, 00.00.00. 8D.00 
00, 64.00. 82, 00, 35, 00. 8D.00, 00.00.82. 00, CB, FF. 64 , 00, 9C. FF 


00. 

73. 

FF.CB. 

FF.7E, 

FF. 

9C. 

FF, 

9C. 

FF, 

7E, 

FF, 

CB, 

FF, 

DD, 

CB, 

09. 

86, 

19, 

DA, 

DD.CB, 

09,76, 

C4, 

4B, 

DA, 

DD. 

CB, 

09, 

5E, 

C4, 

82, 

DA, 

DO, 

CB, 

09, 

DD, 

7E. 

03. 

17. 

DD, 

7E, 

04, 

17, 

57, 

3A, 

2A. 

D2, 

82, 

FE. 

D9. 

28, 

01. 

3D, 

77, 

DD. 

7E, 

02, 

17, 

77. 

23, 

DD. 

7E. 

0B, 

77. 

23, 

23, 

22. 

34, 

D2. 

C9, 

DD, 

46. 

08. 

04. 

DD, 

6E. 

03, 

09. 

0E. 

00. 

3A, 

88, 

CF, 

47， 

CB, 

28, 

CB, 

19. 

B7. 

ED, 

42, 

DD, 

7C, 

FE, 

6A, 

D8. 

FE. 

E8. 

30. 

3C. 

FE. 

83. 

38. 

38. 

DD, 

36, 

00. 

00. 

Fl, 

C9, 

DD, 

DD, 

66, 

,02， 

DD, 

6E, 

01, 

09, 

0E, 

00, 

3A, 

86, 

CF, 

47, 

CB, 

28, 

CB, 

19, 

,B7, 

ED, 

75, 

01. 

,7C, 

FE, 

80, 

D8, 

FE. 

E8. 

30, 

,0A. 

FE, 

99. 

38, 

06, 

DD, 

,36, 

00, 

,00, 

Fl, 

C9, 

DD, 

35. 

12, 

X0, 

DD, 

66, 

11, 

DD, 

,6E, 

,10. 

7E, 

B7, 

20, 

07, 

DD, 

66, 

,0F, 

DD, 

77, 

12, 

,7E, 

23, 

DD, 

77, 

,0B, 

DD, 

,74, 

It, 

DD, 

,75, 

,10, 

,C9, 

21, 

03, 

,03, 

,22, 

06, 

2E, 

,D2, 

,32, 

07, 

DD, 

26, 

rid 

01, 

fid 

,00, 

,11, 

,00, 

,01， 

,CD, 

,00, 

, DD, 

,3A, 

nil 
00, 

>U1 , 

82, 

,D1, 

,FE, 

E9, 

,38, 

,0A, 

,ED, 

,44, 

,87, 

,4F, 

,3E, 

,30, 

,91, 

,5F, 

,18, 

14, 

,FE, 

,80, 

,30. 

0E, 

,00, 

,87, 

ED, 

,44, 

,5F, 

,18, 

,04, 

,0E, 

,00, 

,1E, 

,30, 

,3A, 

,84, 

,D1, 

,FE, 

,E9, 

,38, 

,0A. 

30, 

,90, 

,57, 

,18, 

,16, 

,FE, 

,6A, 

,30, 

,25, 

,FE, 

,52, 

,38, 

,0A, 

,06, 

,00, 

,87, 

,57, 

,3E, 

,D4, 

00, 

,16, 

,30, 

,69, 

,78, 

,C6, 

,90, 

,67, 

,3E, 

,02, 

,32, 

,43, 

,DD, 

,3A, 

,2E, 

,D2, 

,32, 

,44, 

,DD, 

,DC, 

,3A, 

,28, 

,D2, 

,ED, 

,44, 

,CB, 

,2F, 

,CB, 

,2F, 

,CB, 

,2F, 

,ED, 

,44, 

,E6, 

,1F, 

,47, 

,0E, 

,1A. 

,3A, 

,28, 

,D2, 

,ED, 

,44, 

,E6, 

,07, 

,47, 

,0E, 

,1B, 

,F3, 

,CD, 

,47, 

,00, 

,FB, 

,3A, 

,2A, 

,D2, 

,47. 

,00, 

,FB 

.CD, 

,93, 

,DB, 

,3A, 

,2E, 

,D2, 

,B7, 

,28, 

,0F, 

,AF, 

,32, 

,2E, 

,D2, 

,06, 

,E7, 

,0E, 

,05, 
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3790  DATA  FB, 18,0D,3C,32, 

2E.D2, 

06, 

EF, 

0E.05.F3, 

CD. 

47,00, 

FB.06,02,0E,0B, 

F3, CD. 47, 00 

3800  DATA  FB.06.2F. 

0E, 

06. 

F3, 

CD, 

47. 

00. 

FB. 

C9. 

3A. 

2E, 

D2, 

B7, 

20. 

17. 

01,02. IF, 

F3.CD.47.00 

3810  DATA  01.0B.00, 

F3, 

CD, 

47, 

00, 

01, 

06, 

0F, 

F3, 

CD. 

47, 

00, 

FB, 

C9. 

01, 

02, 

3F, 

F3, 

CD.47,00.01 

3820  DATA  0B. 

01, F3, 

CD, 

47, 

00, 

01, 

06, 

IF, 

F3, 

CD, 

47, 

00, 

FB, 

C9, 

21, 

03. 

03. 

22. 

06, 

DD.3A.88.CF 

3830  DATA  B7. 

C8.FE, 

80. 

DA, 

38, 

DC, 

ED, 

44, 

16. 

00. 

5F, 

3A. 

2C. 

D2, 

67. 

3A, 

2A. 

D2, 

47. 

0E.00.7CB7 

3840  DATA  28, 

0A.BB, 

38, 

0F, 

C6, 

D4, 

28, 

03, 

BB. 

38, 

24. 

78, 

C6. 

D4, 

67, 

CD, 

08, 

DD, 

C9, 

7B.94.5F.78 

3850  DATA  C6, 

D4.67, 

83, 

6F, 

E5, 

CD, 

08, 

DD, 

El, 

65, 

3A, 

2C, 

D2. 

16. 

00, 

5F, 

01, 

00, 

00, 

CD.08.DD.C9 

3860  DATA  78, 

C6. 

D4, 

ED, 

44, 

5F, 

80, 

6F. 

78. 

C6, 

D4, 

67, 

E5. 

CD. 

08. 

DD. 

El, 

45, 

3A, 

2C. 

D2,C6,D4,16 

3870  DATA  00, 

5F, 

4A, 

62, 

CD, 

08, 

DD, 

C9, 

16. 

00, 

5F, 

3A, 

2C, 

D2, 

67, 

3A, 

,2A. 

,D2, 

47, 

0E, 

00,78, B7, 28 

3880  DATA  0A, 

BB, 

38, 

0F, 

C6, 

D4, 

28, 

03, 

BB, 

38, 

24, 

7C, 

C6, 

04, 

47, 

CD, 

08. 

DD, 

C9, 

7C, 

ED.44.5F.7C 

38S0  DATA  C6, 

D4, 

47, 

83, 

6F, 

,E5, 

CD, 

08, 

DD, 

El, 

45, 

3A, 

2A, 

D2. 

16, 

00, 

,5F, 

,4a, 

62， 

CD, 

08.DD.C9.7C 

3900  DATA  C6, 

D4, 

ED, 

44, 

,16, 

,00. 

,5F, 

,84, 

,6F, 

,7C, 

,C6, 

,D4, 

,47, 

,E5, 

CD, 

,08, 

,DD, 

,EI, 

,65， 

,3A, 

2A.D2.C6.D4 

3910  DATA 16, 

00, 

5F, 

01, 

,00, 

,00, 

CD, 

,08, 

,DD, 

,C9, 

,3E, 

,02, 

,32, 

F6, 

FA, 

,21, 

,02, 

,02, 

,22, 

43, 

DD.3A.2E.D2 

3920  DATA  B7, 

,28, 

13, 

,21, 

,A7, 

,DD, 

11, 

,00, 

,72, 

,01, 

80, 

,00, 

,F3, 

,CD, 

5C, 

,00, 

,FB, 

,01, 

00, 

,E0. 

18,11, 21, A7 

3930  DATA  DD, 

,11, 

00, 

,76, 

,01, 

,80, 

,00, 

,F3, 

,CD, 

,5C, 

,00, 

,FB, 

,01, 

,00, 

,E8, 

,1E, 

,20, 

,DD, 

21, 

,A7, 

DD.C5.D5.DD 

3940  DATA  7E, 

,00, 

FE, 

D8, 

,28, 

,25, 

DD, 

,7E， 

,02, 

,26' 

,00, 

,6F, 

,29, 

,29, 

,29, 

,11, 

,20, 

,01, 

,CD, 

,45, 

DD, 11,04,00 

3950  DATA  OD, 

,19， 

Dl, 

,E1, 

,01, 

,20, 

,00, 

,09, 

,44, 

,4D, 

,1D, 

,C2, 

,D5, 

,DC, 

,AF, 

,32, 

,F6, 

,FA, 

,C9, 

,DI, 

E1.C9.00.00 

3960  DATA  F3, 

,C5, 

,CD, 

,85, 

,DD, 

,3A, 

,07, 

,00, 

,4F, 

,0C, 

,3E, 

,22, 

,ED, 

,79, 

,3E, 

,91, 

,ED, 

,79, 

,0C, 

,0C, 

ED.61.3A.06 

3970  DATA  DD, 

,ED, 

,79, 

,E1, 

,AF, 

,ED, 

,69, 

,ED, 

,79, 

,ED, 

,61, 

,3A, 

,07, 

,DD, 

,ED, 

,79, 

,AF, 

,ED, 

,79, 

,ED, 

79, ED. 59. ED 

3980  DATA  51, 

,ED, 

,79, 

,ED, 

,79, 

,3E, 

,E0, 

,ED, 

,79, 

,FB, 

,C9, 

,00, 

,00, 

,F3, 

,C5, 

,CD, 

,85, 

,DD, 

,3A, 

,07. 

00.4F.0C.3E 

3990  DATA  20, 

,ED, 

,79, 

,3E, 

,91, 

,ED, 

,79, 

,0C, 

,0C, 

,97, 

,ED, 

,69, 

,ED, 

,79, 

,ED, 

,61, 

,3A, 

,43, 

,DD, 

,ED. 

79, El, AF, ED 

4000  DATA  69, 

,ED, 

,79, 

>ED, 

,61, 

,3A, 

,44, 

,DO, 

,ED, 

,79, 

,AF, 

,ED, 

,59, 

,ED, 

,79, 

,ED, 

,51, 

,ED, 

,79, 

,ED, 

79, ED, 79, 3E 
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1 8 方向 スクロール 'シ ユー ティング ゲーム 


4010  DATA  D0iEDt79,FB,C9,3E,02,CD,92,DD,E6,01,20,F7.AF,C3,92,DD.C5.ED. 
4B.07.00.0C  I 
4020  DATA  ED.79.3E.8F,ED,79,3A,06,00,4F,0C,ED.78,C1,C9,B4,E1,DD,21.38. 
00.FD.2A.C0 
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MSX 漢字 ドライバ 拡張 BIOS 
MSX-MUSIC  FM  BIOS 仕様 


最後に マシン 語 を 使って， プログラム を 組まれる 方の ために' MSX 漢字 ドライ 
バの 拡張 BIOS と ， MSX- MUSIC の FM  BIOS を 掲載して おきます. 

■ 漢字 ドライバ 拡張 BIOS 

漢字 ドラ イノ  、'の 拡張 BIOS コール を 行う 場合に は， デバイス 番号 (D レジスタに 

渡す 値） を 11H と して 行います. 
漢字 ドライバ はェン ト リア ドレス テーブル は 持って いません 力、'， ファンク ショ 

ン 番号 を 指定し， FFCAH 恭 地の 呼び出す ことにより， 現在の 画而 モード を 返し 
たり， 希望す る 画面 モードに 設定したり できます. 

漢字の 表示 は BDOS コール や， BIOS の CHPUT を コールす る ことにより 行う 
ことができ るので， いままでと 変わりありません. [] 内 は レジスタ を 表わし ま 
す (例： [A] は A レジスタ）. 


モー ドの 取得 


現在の Mifii モー ド を数倘 で 返す 

ファンクション 番号： [E]=0  ( モードの 取得） 

ェント リ パラメータ ： [A」  = インス トール 検出 （下記 参照) 

リターン パラメータ： [A]  = モード 

=0  (ANK) 
=1 (KANJI0) 
=2  (KANJI1) 
=3  (KANJI2) 
=4  (KANJI3) 
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2  MSX 漢字 ドライ パ拡 SSBIOS  MSX-MUSIC  FM  BIOS 仕様 

漢字 ドライバが インス トールされ ていない 場合 は [A] 力、' 不変で 返って きます. 
これ を 利用して， [A] を 0FFH にして 呼ぶ ことにより， 漢字 ドライバが そもそも 
ィ ン ストールされ ている のか 否かが わかります. 

単に モー ド 力、' 知りたい だけなら， [A] を 0 に して 呼ぶ こ と をお すすめし ます. 


モー ドの 雕 


画面の モー ドを 設定す る 

ファンクション 番号： [E] 
ェン ト リ パラメータ ： [A] 


=1( モードの 設定） 

= モード 
=0  (ANK) 
=1 (KANJI0) 
=2  (KANJI1) 
=3  (KANJI2) 
=4  (KANJI3) 


リ ターン パラメータ ： なし 


スクリーン を 指定され た モー ドに 設定し ます. 漢字 ドライバが ィ ン ストール さ 
れ ていないと 無視され ます. 
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Appendix 
画 FM  BIOS 

この FM  BIOS は， 他の ユー ティ リ ティ ソフトウェアから 使用され る 際に 必要 
となる ェント リア ドレス を まとめた ものです. 以下の ェン ト リの ための ラベル 名 
と アドレス， その 入出力の 設定 レジスタ， 内容が 変化す る レジスタ， 及び その 機 
能に o いて 解説し ます. 


WRTOPL 


OPLL レジスタへの データの 辔き 込み 

エントリ アドレス ：4110H 

エントリ パラメータ： [A]=OPLLM の レジスタ 番号 

'  [E]= 書き込む データ 

リ ターン パラメータ ： なし 
使用 レジスタ ： 全 保存 

A レジスタで 指定した 番号の OPLL レジスタに， E レジスタの 内容 を畨き 込み 
ます. この ェント リル一 チン 内で は， 割り込み 禁止' 解除 をして いません ので， 必 
要に 応 じ て DI，  EI を 行 う 必要が あ ります. 


  INIOPL   

OPLL ミ ユー ジッ ク ドきィ バーの 環境 を 整備す る 
エントリ アドレス ：4113H 

エントリ パラメータ ： [HL]= 仕様 ワーク エリアの 先頭 アドレス （偶数） 

リ ターン パラメータ ： なし 

使用 レジスタ  ： AF   BC    DE    HL   IX  IY 

HL レジスタで 指定され たァ ドレス （偶数） に， ミ エージ ツ ク ドライバ一 で 使用 
する ワーク エリア を 設定し， すべての ミュージック ワーク エリア 及び opll レジ 
スタを 初期化 します. ワーク エリアの 先頭 アドレス （偶 数） は， SLTWRK 
(0FD09H- ) に 格納され ます. HL レジスタで 指^された エリアが RAM でない 場 
合の 励 作 保証はありません— 
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E  MSX 漢字 ドライバ 拡 iSBIOS  MSX-MUSIC  FM  BIOS 仕様 

すべての ェント リ ルーチン は， はじめに かならず 1 度 はこの INIOPL を 呼び出 
してお く 必要が あります. この ルーチン を 1 度 も 呼び出さずに， 他の ェン ト リ ル一 
チン を 呼び出した 時 は， その 動作 保証 はあり ません. 

EI 状態で RET します. 


MSTART 


音楽の 演奏 を 開始す る 

エントリ アドレス ：4116H  I 
ェン ト リ パラメータ ： [HL]= ミュージック データの先頭 ァ ドレス 
[A] = エンドレス フラグ  . 
=0  無限ループ 
=  1-254 繰り返し 演奏 回数の 指定 
=255 動作 保 II なし 
(HL)=0EH リズム モード （FM6 音 + リズム 部） 
12H    メロ ディ モード （FM9 音） 
《（HL) は データと して 持って いますから， 新たに S き 込む 必要 はあり ません 
リターン パラメータ ： なし 
使用 レジスタ ：AF   BC   DE   HL   IX  IY 

HL レジスタで 指定され たァ ドレスに 配置され ている ミュー ジッ ク データの 
ヘッダ を もとに， 0PLL ドライバの ワーク エリア をき 楽 演奏 W にセッ ト します. 
H.  TIMI フ ッ ク (0FD9FH) から 0PLDRV を 呼び出す よ う に， あらかじめ セ ッ ト 
してお かないと， 旮 楽の 演奏 はしません. 

EI 状態で RET します. 
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Appendix 


MSTOP 


昔 楽 演奏 を 中止す る 

エントリ アドレス ：4119H 

ェン ト リ パラメータ ： なし 

リ ターン パラメータ ： なし 

使用 レジスタ ：AF   BC   DE   HL   IX  IY 

現在 出力して いる OPLL のす ベての 音の 発生 を 止め， OPLL ドライバーの ヮー 
ク エリア も 初期化し ます. 
EI 状態で RET します. 


RDDATA 


ROM 内部 音色 デー タ の 読み出 し 
エントリ アドレス ：411CH 

エントリ パラメータ ： [HL]  = データ 銃み 出し 用 ワークの 先頭 アドレス 

[A] = 音色 ナンバー (0~63) 
リ ターン パラメータ ： なし 
使用 レジスタ ：F (フラグ） 

ROIV [に 内蔵され ている 音色 を 読み出し， 指定の ワーク エリアに 格納し ます, 
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2  MSX 漢字 ドライバ 拡張 BIOS  MSX-MUSIC  FM  BIOS 仕様 


OPLL ドライ バーの ェ ン トリ アドレス 

エントリ アドレス ：411FH 
ェン ト リ パラメータ ： なし 
リ ターン パラメータ ： なし 
使用 レジスタ ： ^存 

音楽 演赛を 実際に 行う OPLL ドライバーの ェン ト リア ドレスです. H.  TIMI 
フック を 害き 変えて， この OPLDRV を 呼び出す ように すれば 接統 0K です. た 
だし， かならず 1 度 は INIOPL を 呼び， すべての ワーク 及び OPLL レジスタ を 初 
期 化してから， OPLDRV を 接続す るよう にして ください. この 手順 を 踏まえて 接 
続し ない 場合 は， その後の 動作が 保証で きません. 


TSTBGM 


演奏 終了の チェ ッ ク 


エントリ アドレス ： 4122h 

ェン ト リ パラメータ ： なし 

リターン パラメータ： [A]= 演奏 状態 

=0 演奏 終了 

<  >0 演奏 中 

使用 レジスタ ：AF 

MSTART で 演奏 を 開始 し た 音楽が， 現在 演奏 を 継続 中 か を 確認 します' 割り 
込み 禁止-解除の 設定 は していません. 
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Appendix 


 レイ 卜 レー シン グ* サンプル データ  

卷 頭の 口絵で 紹介して いる レイ ト レー シン グの サンプル データ を 掲載して 
おきます. リスト 2.7 の レイ トレーシング 'プログラムの 5000 行 以下の デ一 
タ文を 以下の よ う に 害き 換えて 実 fi1 して く ださい. 


fiATA 

oa 

Iff* 

Cv 

nATA 
Un 1 A 

a 

a 

Vt 

rk 

V 

nATA 

o» 

Q 

_o 
o 

nATA 

D 

nATA 
UA1 A 

D 

nATA 
UA1 A 

o 
Z, 

o 
L 

nATA 
UAI A 

. L、 

. L、 

o 
,L 

nATA 

i 

1 1 

o 
L 

5090 

DATA 

-2, 

2, 

2 

5100 

DATA 

.2, 

•  2, 

.2 

5110 

DATA 

1, 

3 

5120 

DATA 

-6, 

4， 

2 

5130 

DATA 

•  2, 

.2, 

•  2 

5140 

DATA 

1, 

4 

5150 

DATA 

-2, 

2, 

-2 

5160 

DATA 

•  2, 

•  2, 

•  2 

5170 

DATA 

1, 

5 

5180 

DATA 

-6, 

4， 

-6 

5190 

DATA 

•  2, 

.2, 

•  2 

5200 

DATA 

1, 

6 

5210 

DATA 

0, 

-2, 

0 

5220 

DATA 

20, 

1, 

20 

DATA 

Vt 

-i 
i 

DATA 

7 
I 

nATA 

Un  I  n 

Q 

q 

Q 
， O 

nATA 

， 0, 

A 
•  H» 

C 
. D 

nATA 

Unl A 

7 

o 
D 

nATA 

a 

Q 
. \Jt 

a 

•  V 

nATA 
Un 1 n 

A 
. 4» 

o 
， D 

pata 

7 
. f , 

o 
0 

CO  id 

nATA 

Q 

a 

な 

5320 

DATA 

•  3， 

.6, 

0 

5330 

DATA 

0, 

0 

5340 

DATA 

.9， 

.9, 

•  9 

5350 

DATA 

.3, 

.6， 

0 

5360 

DATA 

•  6, 

8 

5370 

DATA 

.0, 

.0, 

.9 

5380 

DATA 

.3, 

.6, 

0 

5390 

DATA 

.6, 

8 

5400 

DATA 

.9, 

.9, 

.9 

5410 

DATA 

.3， 

.6, 

0 

5420 

DATA 

.6, 

6 

5430 

DATA 

.0, 

.0, 

.0 

5440 

DATA 

,3, 

.6, 

1 

5450 

DATA 

.9, 

8 
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